RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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NN ON DD DD xX XX WV v MM MM $$ 
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16-5 Hae 9}: b3:18 RUNOFF ..SRCJNDXVMS.B32; ~~ (1) 
1 ZTITLE "NDXVMS -- BSR INDE Y/ 1NOEr ecg Line invertase" 
§ MODULE NDXVMS seoeet = “+ ga (BLISS ie 
ADDRESSING_MODE (EXT = LONG_RELATIVE 
4 , NONE X TERNAL = LONG-RELATIVES 
= 
$9 
0 BEGIN 
08 


' 
SRR RRR RAR AAERAE REAR E ARERR RARE EERE RAE ARAAA ARETE AAA AAA AAARETE AEE 


1 
1 
1 
1! * 
1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
1 ix DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
: i; ALL RIGHTS RESERVED. ® 
! * 
1 !® ie SOFTWARE IS eee UNDER A LICENSE AND MAY BE USED AND COPIED * 
1 !* ONLY IN ACCORDANCE WITH 4 SUC part i AND WITH THE * 
1 Ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
1 i* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
: 't TRANSFERRED. ° 
' * 
1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: :* CORPORATION. ® 
'® * 
: ITY FOR THE USE OR RELIABILITY OF ITS * 
* 
1 ® 
1 * 
q * 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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!t DIGITAL ASSUMES NO RESPONS Y 
C NOT SUPPLIED BY DIGITAL. 


IBIL 
!® SOFTWARE ON EQUIPMENT WHICH IS 
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n 

tee 

i FACILITY: 

i “DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 

i ABSTRACT: 


This module is the INDEX command Line interface module. 


oO 
= 


Much of the code to parse and validate qualifier 
values may be removed when the VMS CLI interface routines 
implement value validation. 


' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
; ENVIRONMENT: VAX/VMS User Mode 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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i AUTHOR: JPK 
i CREATION DATE: February-1982 
i MODIFICD BY: 
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SoOooQooooooo 
SSSSSSssssss 


012 JPK00023 gm hae 
Modified INDEX, NDXT20 and SNOKVAS to check status of 
$XPO_PARSE_ SPEC to avoid error messages from XPORT. 


99 
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SOOoOCOooQoooooooooo°ooo 


OOCCooooooooooooo 
SINISE NOA AAA AOAOO 


NOUS WN (COONAN Wn 


hebababebababababababababal 
~~ tI BOOOOOOOOO 


Fwy CO OONOU Swit 
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011 


010 


009 


008 


007 


006 


005 


004 


003 


-Sep-1 


30-Mar-1983 
mods ted NDXVMS, NDXFMT, NDXPAG, meye ii e one NDXVMSREQ 
to generate TEX output. “added module NDXT 


PK00019 14-MAR-1983 
Mods t ed NDXVMS to conditionalize /PAGE_NUMBERS=CNOJMERGE 
and /PAGE_NUMBERS=STANDARD for DSRPLUS only. 


JPK00016 23-Feb-1983 
Modified NDXVMS to a e the default number ha Lines per page 
when /TELLTALE is specified but /LINES is no 


JPK00015 04-Feb-1983 
Cleaned up module names, modified revision nistery to 
conform with established standards. Updated copyright dates. 


JPK00013 31-Jan-1983 
Changed default subindex level value from 6 to 99 in NDXVMS 
and NDXCLIDMP. This yous is the subindexing level. 

It is NOT A HEADER LEV 


PKO0012 24=Jan-1983 
Modi tied NDXVMSMSG. MSG to define error messages for both 
DSRINDEX and INDEX. 
Added require of NOXVMSREQ.R32 to NDXOUT, NDXFMT, NDXDAT 

NDXXTN, NOXTMS, NDXVMS and NDXPAG for BLISS32. 

Since this file defines the error message Literals, 
the EXTERNAL REFERENCES for the error message Literals 
have been removed. 


PK00011 24-Jan-1983 
eee CMDBLK NOXSG wLEVEL t * CMDBLK CNDX$H LeveL) 
Changed CMDBLK WOXSH_FORAATI ¢ o CMDBLK CNDX$A_LAYOUTI 
Enenged ese Pi ge ag tte and. cn yy St) sv. TEX) to CMDBLK CNDX$H_FORMAT) 
c tH 
CERBELK ENDXSH. FO FORMAT] EQL tng 144) 
defini tions weré changed in NDXCLT™ te references to the 
effected see were changed in NDXPAG, NDXFMT, INDEX, NDXVMS 


EROO002 20-Jan-1983 
Rodd tied VMS command Ties interface module NDXVMS: 
= changed /FORMAT qualifier to /LAYOUT. 
- oe ee “ee of /RESERVE and /REQUIRE for DSRPLUS. 
r, ier ney DSRPLUS qualifiers /FORMAT and 


Added Ai ‘to. NOXCLI “for new qualifiers: NDX$V_TELLTALE 


AP ee output of NDX$V_PAGE_MERGE in NDXCLIDMP to 
account for different DSR and DSRPLUS default values. 


REROOOO1 17-De og. 196¢ 
Modified VMS command Line interface module NDXVMS: 
- paced code tet treat keyword NORUNNING in same way as 
eywor 
- Added code ey new DSR que} itiers spesenye on ond sreCuIne 
- Changed header level default value from 


AX=11 Bliss-32 V4.0-74 
RUNOFF .SRCJNDXVMS .B32; 


< 
oO 


hid ae 


vet“ NDXVMS == DSRINDEX/INDEX Command Line interface 18-Fep-1984 OF: NS31§ pred Obie weave ¢: 5504 Page a3 


- EY dete ode to compile for DSRPLUS if BLISS 
used; ot Ory lees 7 compile = DSR. 
- Deleted toreign-commend code; INDEX now calle 
as a subcommand of DSR. 


002 JPK00001 1Se Auge 1206 
Removed reference to CLISEND_PARSE in NDXVMS. It is no longer 
supported by VMS. 


Ss 


2 2 > 


| INCLUDE FILES: 
LIBRARY 'SYSSLIBRARY:STARLET.L32'; ! System macro Library 
LIBRARY ‘SYSSLIBRARY:TPAMAC.L32'; ! TPARSE macros 


LIBRARY ‘SYSS$LIBRARY:XPORT'; ! Transportable BLISS Library 
SWITCHES LIST (REQUIKE); ! Print require files 
REQUIRE ‘REQ:NDXCLI'; ! Command Line information block 
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yOuv0 Sep-1 382 9}: 43 18 VO SSSpUAIES 8 CRUNOFE. she NOXCLI.REQ;1 jis (1) 
} IDENT = 0V04-06004 

RTTITIILILILILILI LLL LIL LILLE LLL LLL iTiiiiiiiiiiiiiiiiiiii iii 


'@ 

'® COPYRIGHT (c) 1978 1380. 1982, 1984 BY 

'® DIGITAL at CORPORAT TION, MAYNARD, MASSACHUSETTS. 
> ALL RIGHTS RESER 


Hed te SOFTWARE IS FURNISHED UNDER 4 ScEse AND MAY BE USED AND COPIED 


8 
9 
40 
14) « 
138 * 
Bie * 
RO1GS : 
+ 
RO14 * 
ROie? '* ONLY IN ACCORDANCE WITH TH SUCH LICENSE AND WITH THE * 
RO148 '® INCLUSION OF THE ABOVE gp thd NOTICE. THIS SOFTWARE OR ANY OTHER * 
RO149 'e COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
RO150 '® QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
sit 1 ° TRANSFERRED. * 
' 
RO} - '® phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
RO154 '® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * ‘ 
sit 5 i. CORPORATION. * 
' ® 
ROIS? '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
Roles i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
' * 
RO160 is * 
RO161 YR RARARE EERE AREER EERE EEE EEEEE EAE EE REARS 
melee} 
RO164 ' 
RO165 ! FACILITY: 
Roe? DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 
e1e9 ABSTRACT: INDEX command Line definitions 
eotey ENVIRONMENT: Transportable 
RO17 AUTHOR: JPK 
RO17 
RO174 CREATION DATE: January 1982 


MODIFIED BY: 


004 JPK00015 04-Feb-1983 
Cleaned up module names, modified revision nrecery to 
conform with established standards. Updated copyright dates. 


003 JPKO0011 24-Jan-1 

fonnee CMDBLK NDX$G “EVEL to CMDBLK CNDXS$H LEVEL) 

Changed CMDBLK NDXSH FORMAT] to CMDBLK CNDXS$A_LAYOUT) 

pnanged Heaaett ENOXSV, oh ae sf9° iy tt weKsy “HEX ¥¢- CMDBLK CNDX$H_FORMAT] 
hanged coepec! A CHRSZA) 
(. CMDBLK XSH_ SPORMAT) éoL Reasti. 

Definitions were changed in NDXCLT and references to the 

orcected [iesés were changed in NOXPAG, NDXFMT, INDEX, NDXVMS 

an 


002 REROOOO2 20-Jan-1983 
Mott ed VMS command cine interface module NDXVMS: 
= changed /FORMAT qualifier to /LAYOUT. 


r 
So 
_ 
io 
wet miatadadatatadadatetiatat ated atest ad eae ad ead ead ad ada dada ad aad aD ad adadadaDadad 


Be Se Be Se Se Se Se Se Se Se Be Se Se Se Ge Se FS Se Fe Ge Se Ge Ss Ge Se Ge Ge Ge SH TS TS SS Ss Oe Ge Se Ge SS Se Ss Se Se Ss Se SF Se Se Se Ss Se Se Se Se Se Se Sees 
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Sn ss 


-Sep-1 Voss 
- changed use of /RESERVE and /REQUIRE for DSRPLUS. 
- adde coge fer hey DSRPLUS qualifiers /FORMAT and 


naa Hulse oy NDACEI “for new qualifiers: NDX$V_TELLTALE 
an 

Bae Tete velined output of NDXSV_PAGE_MERGE in NDXCLIDMP to 
account for different DSR and DSRPLUS default values. 


De eee eee | 


NDXVMS == DSRINDEX/INDEX Command Line interface IBe5e gon] 986 93:19:16 


1 otis s-32 V4,0-7 
$DUA28 : CRUNOF F . SRC NOXCLI.REQ; oh 


5 
(1) 


é 


12 
NDXVM NDXVMS == DSRINDEX/INDEX Command Line interf 16-5 1984 01:14:17 VAX-11 Bliss<-32 V4.0-74 P 
VOe~000 Meee inter race Tee eepm lobe Sere8s15 | Sas ASR rRGubeE sheSwoxcus.reas1 cas 


: RO205 1 : 

; Re : 1 ' NDXCMD_FIELDS 

3 ® 1 : 

; RO 1 SFIELD ndxcmd_fields = 

; Re y } SET 

3 ne } i NDX$V_OPTIONS = CSINTEGER), ! Command option indicators: 

; 44 1§ ! SOVERLAY (NDX$V_OPTIONS) 

$ R023 1 NDXSV_INPUT_CONCAT = ($B81T), ! Input file concatenated to previous 
; RO 1 1 NDX$V_OUTPUT = ($B1TJ, ! Generate output file 

3 RO217 1 NOXS$V_REQUIRE = ($B1TJ, ! Require file specified 

; kO218 1 DXS$V_PAGES = ($B1T), ' Include page references in index 

; RO219 1 NDXS$V_OVERRIDE = ($BITJ, ! Override master index information 

; RO220 1 NDX$V_STANDARD_PAGE = ($B81TJ, ! Generate standard page numbers 

; RO221 1 NDX$V_CONTINUA = ($B1TJ, ! Generate continuation headings 

; RO § 1 NDX$V_GUIDE = ($B1TJ, ! Generate guide headings 

; RO 1 NDX$V_WORD_SORT = ($B1TJ, ' Sort entries word by word 

; RO224 1 NDX$V_LOS = ($B1TJ, ! Generate /LOG message 

; RO225 1 NDXSV_MASTER = ($B1TJ, ! Generate a master index 

: RO? 8 1 NDX$V_PAGE_MERGE = ($B1TJ, ! Merge adjacent page references 

; ROS i } NDXS$SV_TELLTALE = ($B1T), ! Generate telltale headings 

; nO3¢9 ! SCONTINUE 

H ROS a: ¥ NDXS$H_FORMAT = CSSHORT_INTEGER], ! Output format: DSR, TMS, TEX 

3; RO2 § 1 NDX$H_LAYOUT = CSSHORT_INTEGER], ' Output layout type 

3; RO2 1 NDX$H_NONALPHA = [CSSHORT_INTEGER], ! Treatment of leading nonalphas during sort 
3 ROS 4 1 NDXSH_LEVEL = CSSHORT_ INTEGER], ! Deepest level to include in index 

; RO235 1 NDX$G_COLUMN_WID = CSINTEGER), ' Column width 

: RO? 1 NDX$G_GUTTER_WID = CSINTEGER), ! Gutter width 

; RO237 1 NDX$G_LINES_PAGE = CSINTEGER), ! Lines per page 

; kO238 1 NDX$G_RESERVE_LINES = CSINTEGERJ, ' Number of lines to reserve when requiring a file 
; kO239 1 NDX$G_SEPARATE WIDTH= CSINTEGER ! Width of reference portion of srt 
; RO2460 1 MASTER K = CSDESCRIPTOR(DYNAMIC)], ! Book name descriptor for Master indexing 
; RO241 1 NDXS$T_INPUT_FILE = CSDESCRIPTOR(DYNAMIC)], ! arouse file name descriptor 

; =RO ri} 1 NDXS$T-OUTPUT FILE = CSDESCRIPTOR(DYNAMIC)], ! Output file name descriptor 

3 RO245 1 NDXS$T_REQUIRE_FILE = CSDESCRIPTOR(DYNAMIC)], ! Require file name descriptor 

; RO244 1 NDXST_RELATED_FILE = CSDESCRIPTOR(DYNAMIC)], ! Related file name descriptor is saved here 
3 RO245 1 ' by NDXINP for Later use by MAKNDX 
; sito : NDXST_COMMAND_LINE = CSDESCRIPTOR(DYNAMIC)] ! Copy of entire command Line 

3; OR $8 1 TES; 

; RO249 1 ¢ 

; kO250 1 ! End of NDXCMD_FIELDS 

; rR 2) 1 : 

; rR § 1 

3; RO25 1 LITERAL 

: Re 32 ' NDXCMDSK_LENGTH = SFIELD_SET_SiZE; 

; RO 56 1 MACRO 

; Re of ' SNDXCMD = BLOCK CNDXCMDSK_LENGTH] FIELD (NDXCMD_FIELDS) 2%; 

: 0 59 1 SLITERAL ! Qutput formats (NDXSH_FORMAT) 

3; RO260 1 R = $DISTINCT, ' Runoff 

; kRO261 1 TMS11_A = $DISTINCT, ! TMS=A 


Ss 


F 12 
NDXVMS NDXVMS == DSRINDEX/INDEX Command Line interface 19~300- 138? OFS 1g VAX-11 Bliss-32 Oi ches Page 7 
v04-000 15-Sep-1984 22:53:1 -$255$DUAZ8 : CRUNOFF .SRCJNDXCLI.REQ;1 (2) 
; RO262 1 TMS11_E = $DISTINCT, ! TMS=E 
; no ? ! TEX = SDISTINCT; ! TEX 
: R065 SLITERAL ! Output Layouts (NDXSH_LAYOUT) 
ROsey 1 ONE COLUMN = SDISTINCE, i Normal one column format 
; OR re: 1 SEPARATE = $DISTINCT, ! Separate reference format 
; M4 8 ! GALLEY = S$SDISTINCT; ! TMS11 Galley format 
: RO i 1 SLITERAL ! Treatment of leading none\ hes during sort (NDX$H_NONALPHA) 
i 8 72 1 BEFORE = $DISTINCT, ! Leading nonalphas sort before alphas 
; RO273S 1 AFTER = SDISTINCT, ! Leading nonalphas sort after alphas 
; 4 ee } IGNORE = $DISTINCT; ! Leading nonalphas are ignored 
: R076 3 
; RO277 1 !=< End of NDXCLI.REQ 


S55 


+ ha NDXVMS == DSRINDEX/INDEX Command Line interface 1 18-5¢ Haat fi 9: 43: 1g eore’ sa efepeyie: o5te Page af 


3; 3 78 #1 
13 $358 1 REQUIRE ‘REQ:NDXVMSREQ'; ! Error message definitions 
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-Sep- RUNOFF, esr CINDXVMSREQ. R 231 (1) 


1 

Version: *v04-000' 
_ EpRECRD eRe preneimoN pire Cortera ee sty 
‘® 

'‘® COPYRIGHT (c) 1978, 1980, 1982, 1984 8 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THI bray, IS FURNISHED UNDER A LICENSE AND MAY BE USED AND gt 
ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
N OF THE ABOVE C R AN ER 


® 

® 

® 

® 

* 

* 

® 

® 

is ® 

ANY * 

i REBY * 
ie TRANSFERRED. . 
® 
® 
® 
& 
© 
® 
® 
® 
® 
® 


't THE INFORMATION IN THIS SOFTWARE IS SUBJE 
:* AND SHOULD NOT BE CONSTRUED AS A COMM 
't CORPORATION. 


!* DIGITAL ASSUMES NO RESPONSIBI 
:* SOFTWARE ON EQUIPMENT WHICH I 


CT TO CHANGE WITHOUT NOTICE 
ITMENT BY DIGITAL EQUIPMENT 


LITY FOR THE USE OR RELIABILITY OF ITS 
S NOT SUPPLIED BY DIGITAL. 


LRA ERA RRA EERO REAR ERE EEE ARATE ARATE ATE AAA AAR AEEERE REE 
' 


'+¢ 
! FACILITY: 
DSR (Digital Standard RUNOFF) /DSRPLUS DSRINDEX/INDEX Utility 


i ABSTRACT : 
is file contains external references to the error message numbers 
ior DSRINDEX/ INDEX. 


t 
' 
' 
' 
' 
' 
' 
: New messages must be defined in NDXVMSMSG.MSG and referenced here: 
: both in the MACRO pection (for DSRINDEX) and the EXTERNAL LITERAL 
section (for INDEX) 

| ENVIRONMENT:  VAX/VMS User Mode 

AUTHOR: JPK 

i CREATION DATE: 01-Feb-1983 

i MODIFIED BY: 

i 004 JPKO0022 30-Mar-1983 

: Modi tied NDXVMS, NDXFMT, NDOXPAG, NDXVMSMSG one NDXVMSREQ 
to generate TEX output. “added module NDXTEX 

' 

| 

' 

1 


003 PK00021 28-Ma Arh vy 


Modified N DXT20 to include E2.0 functionality. 
Modified ND CLIDMP, ASNTAr NOXPAG, NDXVRS t “require RNODEF 
for eLtssie and to remove any conditional require based on 


Ss 
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000 Sep-1984 gh: 43 \§ RUNOFF .SRC NDXVMSREQ. R 2:1 ne (1) 


SS 


002 JPK00010 04-Feb 
Cleaned up module n vanes. "aaettted revision hres to 
conform with established standards. Updated copyright dates. 


REQUIRE ‘REQ:RNODEF'; 
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NDXVMS NDXVMS == DSRINDEX/INDEX Command Line interface 1b-5e 300-198 gi: 1: ig 


1 Bliss-32 V4.0-7 Page 
-Sep- 


VEaSSSDUALE: 8: CRUNOFF . sae RNODEF .REQ;1. 


SS 


; RO344 1 } : 
3 ~ $2 ! Version: *v04-000' ; 
: Q re] 1 i eee eeeeeeeeeeeeeeeeeeeeeeeneeteeeeeeeeeeeterenererereeeeeeeeeeeeeenereneeeee P 
; rR 1 '® * 3 
3 Re , 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 * : 
; OR 1 '® DIGITAL EQUIPMENT CORPORATION, ” MAYNARD. MASSACHUSETTS. ® : 
; Ry 1 ! :* ALL RIGHTS RESERVED . : 
; RO ¢ 1 it ae SOF TWARE } FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; ROSSQ 1 'e Y IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
3 Re . o '® ONELUSTON OF THE ABOVE COPYRIGHT pete F THIS SOFTWARE OR ANY OTHER * : 
3; UR § 1 't COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; RO 1 'w OTHER PERSON. NO TITLE TO AND DUNERSHEP OF THE SOFTWARE IS WEREBY * ; 
8 n° 2 } . TRANSFERRED. . : 
; RO360 1 it phe INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
3; kRO361 1 '® SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: R036 is CORPORATION. , ; 
: RO364 «1 it DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
3 M4 2 : ° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. - ; 
. re o 
: : 
: 4 i : sscseigasiaediadaisinceenceaehcnpaninenineeiaisiethadhdiidtinientiehindaitelaaeitdnibaenatientammadenibndiiadniiaaiaabit P+ 
; R039 1 : 
oy 1. : 
; ROs?2 i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS ; 
: Rosra 1 i ABSTRACT: : 
3 Rae ! Converts BLISS/VARIANT values into useful names. : 
; nO3i? i ENVIRONMENT: Transportable BLISS : 
; nO379 i AUTHOR: Rich Friday : 
3 Rosa 1 CREATION DATE: 1978 3 
; Rosas 1 | MopiFIeD By: : 
; Roses 1 i 016 KAD00016 ay Racobelt 19-Mar-1984 : 
3 noe) Added GERMAN, FRENCH, € ITALIAN, 3 
; RO a | i 015 KAD00015 Keith Dawson 18-Apr-1983 3 
; RO389 1 ‘ Made the LNO1 candi tional the detmait for vanilla DSR -- 3 
3; RO390 1 ! its value is 0 (no variant supplied). : 
: 8 93 } 014 KAD00014 Keith Dawson 22-Mar-1983 : 
: ROSS Tt Asserted the LNO1 conditional when DSRPLUS is asserted. 2 
: RO 95 1 i 013 KAD00013 Keith Dawson 20-Mar-1983 : 
3 RY 38 ' } Removed all references to .BIX and "BIC files. : 
: RO398 1 i 012 AD00012 Keith Dawson 07-Mar-1983 : 
3; RO399 1 ! Global edit of all modules. Updated module names, idents, : 
; RO4O0O0 1 i copyright dates. Changed 7h. re files to BLISS library. : 
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DEFINITION OF /VARIANT BITS 
The bit assignments are as follows: 
Bit Weight Meaning 


-- 0 If no /VARIANT is supplied i for vanilla DSR), 
pomp i te with my supper’. LNO1 support is also’ 


ooo 
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1 
: ied by the DSRPLUS variant. 
1 0 1 CLEAR = Unassigned 
: SET = Unassigned 
1 1 2 CLEAR = Normal compile 
1 SET = Compile for DSRPLUS 
4-6 16 CLE 
SET 


AR = Fool ish (American) version 
33 = German (Austrian) 
4 


= French 
= Italian 


This variable (LNO1) controls whether or not to compile an LNO1- ~flavored 
SR. It is asserted by default, and also whenever DSRPLUS is asserted. 
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nae Modules utilizing LNO1 are: 
ROG DOOPTS NOUT 
ROG 
aye COMPILETIME 
= 
ok} ( (ZVARIANT EQL 0) OR X&VARIANT/2 ) 
RO438 3 
RO439 
RO440 ' ee ee ee eee et ew MOK ee He HK Bee wR HB Bw ER HE DR BR Oe EE RO RE Oe De BR Be SH Be ee ee ee we ee 
~ ‘) : This variable (DSRPLUS) controls compilation for the DSRPLUS program. 
Roce i ALL modules utilize DSRPLUS. 
RO445 COMPILETIME 
aRee dsrplus = 
~ ? ( XVARIANT/2 ) 
Rocco . 
ROG 50 ! ee SSeS BT KH BB ODT OK BEBE DE Mew Bae Moor wr ewree res aenenmr ee mroeve Dees Oo ee eS ee = oS 
RO451 i This variable (FLIP) controls compilation of FLIP features of DSRPLUS. 
Rog It assures that FLIP features are compiled only on VMS systems. 
Rous i Modules utilizing FLIP are many and various. 
ROGS COMPILETIME 
RO4S flip = 
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Ss 


H ROe8 . ( ZVARIANT/2 AND %BLISS(BLISS32) ) 

rae 

s R0461 1 | mmmmmmmwowowewwwee wow eee eee eee eeeeeooeeeeeeoceesoscecoccccccoccoececcocecs 
; RO462 1 ! 4-6 16 CLEAR = Foglish (American) version 

; RO46S 1 ! SET = = goraen (Austrian) 

3; ROG6S 1 ! = French 

; kRO46S 1 ! = Italian 

: Rees 1 Cr LET ING 

; ROG6 1 Ger = ( ZVARIANT/16 AND NOT XVARIANT/32 AND NOT Z%VARIANT/64 ) ; 
; RO4G6B 1 COMPILETIME 

: ROG) 1 = ( NOT ZVARIANT/16 AND 2VARIANT/32 AND NOT XVARIANT/64 ) ; 
; ROG 1 COMPILET IME 

; ot ! Italian = ( %VARIANT/16 AND %VARIANT/32 AND NOT X%VARIANT/64 ) ; 

: kRO4G73 1 End of RNODEF .REQ 


(pa a Pg ve teas 
RUNOFF .SRC JNDXVMSREG.R52;1 


1986 22:58:38 
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gal range> 


oy 
put> 


*tAS' for in 


3 
"!taS* for ou 


invalid keyword value> 
! <insufficient virtual mem 
gth is 1 
reference not found> 
pplied> 
s out of le 


! <maximum Line Len 


'< 


pening 
pening 

y values su 
ed value i 


! <internal logic error detected> 
<error o 


! <can*t balance last page> 


! <*!aS* is an 
' <error o 
' <too man 
: <specifi 


2222222222 
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VOuw if: $e0-1984 $3: 43; 3 RUNOFF . SRC NDXVMSREQ. nn 231 . (1) voi 
; ROS31 1 INDEX$_CLOSEQUOT, ! <missing close qu 

3; 8 § 1 INDEX _ CONF QUAL , ; seene teein 9.344 I ers> 

; OR 1 INDEXS_CTRLCHAR : <th to fo Uowing ne contains centres characters - tgneree> 

> RO 1 INDEXS-DOESNTE IF, i < W Unde tet the current ndentation Leve 

; kROS3SS 1 INDEX$_DUPBEGIN, ; <dupticate Pas | GIN) - inserted as .XPLUS ()> 

; RO 1 ee tt lL D : Senety | inoue a at 

; RO 1 INDEX$_ IGNORED : ignored> 

: RO 8 1 INDEXS$_INVINPUT i invalid input file tormat in file, "IAS'> 

; RO539 1 INDEXS-INVRECORD, } <invalid record type in file '!A 

; RO540 1 INDEXS_LASTCONT, : $c “ S Sqrerete continuation headin on last page> 

; ROS41 1 INDEX$_NOBEGIN, 7 < 4 ¥} Jt no .XPLUS (BEGIN) = inserted as .XPLUS ()> 
; RR et6 1 INDEX$_NOEND .-<, “Kot US 3 GIN no correspgnd ing -XPLUS (END)> 

> RO545 1 INDEX$-NOINDEX, ! <no index noodle on in fil 

> ROS44 1 INDEXS$_NOLIST ! <parameter List not allowed> 

; ROS4S5 1 INDEX$_OVERSTRK, ' <the following Line contains an overstrike sequence> 

; Ro ee8 1 INDEX$_SKIPPED, ! <!UL reference! 3S inside page range - ignored> 

3 ROS47 1 INDEXS$_ SYNTAX ! <error parsing ‘!AS'> 

; rRO548 1 INDEXS_TEXFILE, ! <error Prcoetinn (4 'UL of TEX character file ‘!AS'> 

3 ROSS9 1 INDEXS$S_TOODEEP, ! <maximum subindex depth exceeded> 

; ROSSO 1 INDEX$_TOOFEW ! <not enough values supplied> 

; R055] 1 INDEX$-TRUNCATED, | <string too long = truncated> 

: R02 28 1 INDEXS_COMPLETE, ! Serecess ing complete ‘!AS'> 

; kRO553 1 INDEXS$_CREATED, ! <"!AS* created> 

; RO5S4 1 INDEX$_ IDENT ! <INDE¥ version !AD> 

; RO55S 1 INDEXS-PROCFILE, | <processing file "!AS'> 

3 R02 38 1 INDEX$_TEXT ! <!AS> 

; ROSS? 1 INDEX$-TEXTD, i <entry text: "!AD'> 

3 atts ' INDEX$_TMS11; ! <output file full - continuing with file "!AS'> 
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Meer rae em sep-1984 13:07:19  ERONOFFOSRESNDXUMS B30 1 ‘pol 


Ss 


SWITCHES LIST (NOREQUIRE); 
' 


TABLE OF CONTENTS: 


FORWARD ROUTINE 


XCL Command Line interface 
CONDITION HANDLER, 


Main progres condition handler - sets return status 
e TPARSE 


CAL ARSE, Invok to parse qualifier values 
ENTER_PAGE, Action routine - enter page number type 
OPEN_ERROR; Report file open errors 

ZIF DSRPLUS 

Z THEN 


FORWARD ROUTINE 
ENTER_MERGE 
ENTER-LAYOUT, 
ENTER-FORMAT, 


Action routine 
Action routine 
Action routine 
Action routine - enter sort type 

Action routine nter nonalpha sort 

Process options file 

Process /BOOK_IDENTIFIER qualifier 

Process TEX character size file 

Action routine - store TEX character size 
Action routine - read a line from TEX char file 


enter page range merge 
enter /LAYOUT value 
enter /FORMAT value 


A 
OPTIONS FILE : NOVALUE, 
PARSE BOOK: NOVALUE, 
PROCESS TEX_FILE : NOVALUE, 
STORE_TEX, 
READ_TEX; 
tI 


EQUATED SYMBOLS: 


eeececececececer 
OOOO COCOCOCOOOOSCOSOSOCOOOOOOCOCO OOOO OOOOOOOOOOOOOOoOO 
reat ® ak * a1 * al * at "al al Sah ah Ah Ab AL Ab Ab Ab Ab Ab Ab Ab AL AL AL AL AL AL AL AL AL AL AL Ab AL Ah AL Ah AL ah dh ahhh dh dh db dh db ahah al al 
DOOOCOCGCOOOCSOOOOO0O0O OO 0000009090909 09 09 09 08 SINS SNS NINN NOAA AOAOAAOAOOAS 


ANE AN OOOO USUI 9 OONAUE WIN (OOD NAU EWR 0 OONAOUES UR $0 OONOUS WO 


LITERAL 
TRUE 
FALSE 


OWN STORAGE: 


CO O9 C8 SIN NINN NSS APPA AAA A A IIIT SE 
UR =O OCONAOUEWN $9 ODNAUE WN OOD ONOUE WN SO OONOULS WHO Ss 


me ee ee Be me ee ee ee ee ee ee ed 2d nd dd nd ed = od od = = = 
ee ee ek et a ad ek ad a et ts = = - 2 = 2s 2 = os = ss 4 — © > 2 ) > 1 ) — Ss — 1 YS 


Bo Se Se Be Se Be Ge Se Se Se Se Ge Be Se Se Se Se Fe Ge Ge Ge Ge Ge Ge Fe SH Gs Gs oe Se Ge Se Se Ge Ge Se Se Se FF SF SF Se FH Se Se Se Se Se Se SHS Se Se Geese Seas 


OWN 
VALUE_STR  : $STR_DESCRIPTOR (CLASS = DYNAMIC, STRING = (0, 0)), 
85 OPTIONS STR : $STR_DESCRIPTOR (CLASS = DYNAMIC, STRING = (0, 0)), 
QUALIFIER _VALUE 
TERMINATION_ STATUS : INITIA!. (STSSK_SUCCESS); 
9 L 06 ZIF DSRPLUS 
90 U 061 ZTHEN 
91 U 061 
4 U 061 OWN 
9 U 061 TEX_FILE_NAME : S$STR DESERIE TOR (CLASS = DYNAMIC, STRING = (0, Q)), 
94 U 061 TEX-CHAR_SIZES : VECTOR (256), ! Where character sizes are stroed 
95 U 3 TEX_CHAR_INDEX, ! Index into TEX_CHAR_SIZES 
96 U 061 TEX_FILE_LINE_NO, ! Line number of file 


2s 
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YO4~000 1 =30P 138i 94: 5:18 YRUNOFF SRE NDXVMS .B32; Sut dj 
' 


3 197 U 0617 1 TEX_LINE : SSTR_DES G15 TOR () ! qeses totes of input Line : 
: 198 uU 0618 1 TEXIN BUF : BLOCK (512, BYTES i Input utter : 
> 199 u 0619 1 TEX-ES": BLOCK CNAMSC_MAXRSS, BYTE). i Expanded f Lename string ; 
; 200 U 06 1 TEX_RS : BLOCK LNAMSC_MAXRSS, BYTE), ! Resultant filename string : 
: 201 y ? oo TEX_NAM : = TEX_ES, ESS = NAMSC_MAXRSS, RSA = TEX_RS, RSS = NAMSC_MAXRSS), : 
; O¢ U : 1 TEX-FAB : $FAB (NAM = TEX"NAM, DNM = '.FSZ') ; 
: 903 u 6 : TEX"RAB : $RAB (FAB = TEX"FAB, UBF = TEX_IN_BUF, USZ = 512); : 
; 205 06 5 1 XI 3 
; 206 6 § 1 3 
; 207 6 1! 3 
; 4 ? 8 } EXTERNAL REFERENCES: : 
; 210 0630 1 3 
: 211 0631 1 EXTERNAL LITERAL 3 
: \¢ 06 § 1 TAB : UNSIGNED (8), ! TAB character F 
. a 06 1 TMSCOL, ' Default TMS column width 3 
3 sie Be : ! MAXLIN; ! Maximum number of Lines per page ; 
; $e 0636 1 xo LITERAL ' Values returned from CLI interface ; 
3 S16 0637 1 CLIS_CONCAT ' Value concatenated to next : 
; 218 0638 1 CLIS“PRESENT, i value explicitly given ; 
s 219 0639 1 CLIS_NEGATED ! Value explicitly negated (/NO) : 
: 220 0640 1 CLIS“DEFAULTED, ' Value defaulted present ; 
; 221 0641 1 CLIS_ABSENT; ! Value not present ; 
3 $$¢ pots 1 3 
3 ée 06435 1 EXTERNAL 3 
; $se 0644 1 CMDBLK : SNDXCMD ! Command Line information block ; 
> 225 0645 1 CHRSIZ : REF VECTOR, i TMS character size vector pointer ; 
: 226 Bee$ 1 CHRSZA : VECTOR, ' Character size vector for /TMS11 =A 3 
3 der 647 1 CHRSZE : VECTOR, ' Character size vector for /TMS11 = E 3 
3; 228 0648 1 NDXVRL, ! Length of version number string 3 
3 $$9 0649 1 NDXVRP; ! CHSPTR to version number string $ 
; 2350 0650 1 3 
; $3! 0651 1 EXTERNAL ROUTINE 3 
3 4 0636 1 NDXINI : NOVALUE, ! Once only initialization 3 
:; 23 0655 1 NDXINP : NOVALUE, !' Process input file 3 
: 234 0654 1 MAKNDX : NOVALUE ' Generate index 3 
s 235 0655 1 CLISPRESENT : ADDRESSING_MODE (GENERAL), ' Check for qualifier 3 
4 $39 Be28 1 CLISGET_VALUE : ADDRESSING_MODE (GENERAL), ' Get value of qualifier 3 
; ¢ poet : LIBSTPARSE : ADDRESSING MODE (GENERAL); ! Table driven parser : 
: 3 L 0659 1 SIF DSRPLUS : 
5 40 U 260 1 ZTHEN : 
: 241 U 0661 1 : 
3 tg U O66 1 EXTERNAL : 
; > , Ose i NDXOPTION; ! Options file parse tables address : 
H 45 U 0665 1 seh ¥ ROUTINE é 
3 48 Y 006 \ CLISDCL_PARSE  : ADDRESSING_MODE (GENERAL); ! Initiate new parse : 
: 248 668 1 XFI : 
: 249 06 1 : 
: 39 6 1 !¢ ; 
: 1 Sri 68 TPARSE state tables : 
3 2¢ 672 1 !- , 
: 5 6735 1 5 
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v04=000 1 ~300- 138% ne RUNOFF . SRCJNDXVMS .B32; 7 vb 
3 4 ore 1! 3 
; 5 of? } Tables to parse an arbitrary number : 
; ; orf 1 SINIT STATE (NUMBER_STATE, NUMBER_KEY); ; 
; g P £8 1 $STATE ; 
; P 0679 1 (TPA$_DECIMAL, , QUALIFIER_VALUE), ; 
; 60 P 6 6 (TPAS-EOS, fPAS_EXIT) ; 
: 26 P 06 g 1 SSTATE ( ; 
: 26 e 06 1 (TPAS_E0S, TPAS_EXIT) ; 
> 264 684 1 ); : 
. on oe : 
; 24 St : Tables to parse /PAGE_NUMBERS values ; 
: 269 0689 1 $INIT_STATE (PAGE_STATE, PAGE_KEY); ; 
; 29 P 9690 SSTATE (, : 
: 27 L 069¢ 1 XIF_DSRPLUS ; 
i Gage 1h : 
> 275 U 0695 1 "MERGE" ‘ ENTER_MERGE, . , TRUE) 
; 276 U 0696 1 ("NOMERGE’, =, ENTER-MERGE, . . FALSE), : 
: 277 U 0697 1 ("STANDARD', ENTER-PAGE, . , TRUE) , : 
: 278 U 0698 1 ; 
io bap i : 
: 281 P0701 1 (*RUNNING' ’ ENTER_PAGE, ., FALSE), : 
: 382 PO70e | C*NORUNNING" , ; ENTER-PAGE, , , TRUE) 3 
: 284 P0704 1 SSTATE ( : 
> 285 P0705 1 (TPA$_EOS, TPAS_EXIT) ; 
a 4 ae : 
; $88 L 0708 1 XIF DSRPLUS ; 
> 289 U 0709 1 XTHEN ; 
: $94 hee 
: 392 u Orie Tables to parse /FORMAT values : 
> 294 U 0714 1 $INIT_STATE (FORMAT_STATE, FORMAT_KEY); ; 
: 295 U 0715 1 SSTATE ( 3 
; 296 U O76 1 ("DSR', FORMAT_END, ENTER_FORMAT, , , DSR), F 
> 297 u0717 1 (‘TEX'; TEX_STATE), ; 
; 38 ¥ 218 CTHS", TMS" STATE) ; 
: 300 U 0720 1 SSTATE (TEX_STATE, F 
: 301 U 0721 1 (‘=!, TPAS_EXIT, ENTER_FORMAT, . . TEX), : 
: 0 ¥ u ¢ (rr, TPAS-EXIT, ENTERFORMAT. . . TEX) ; 
: 304 U 0724 1 SSTATE (TMS_STATE, F 
: 306 Y orse 13! 
; oF u f , (TPAS_EOS, TPAS_EXIT, ENTER_FORMAT, , , T™S11_A) ; 
; 309 U 0729 1 SSTATE (, ; 
: 310 u 0730 1 (at: FORMAT_END, ENTER_FORMAT, , . TMS11_A), : 


AX=11 Oh legeae Eh el og 
NDXVMS .B32; 


RUNOFF. SRC 


t 


Sep-1986 15:07:19 


be 


1 


NDXVMS == DSRINDEX/INDEX Command Line interface 1 


(Ee eae eae ea aL ee ear aT ta" Fs aS 6D 


* ses © & 
Ce hie hte tat 
2222 
“~~ 
~ S555 — 
uu J) J I os an 
4 OoOooo>at -_ ww 
oo VVvooCWE aw cane 
— (tt Kiet ww oow 
” ooww4a — Pe Zur 
= Sra Sfze2zamu adc Ownuw 
— --O0O0M ue —MOat 
on 
w 
p> 
=’ 
<= 
> 
a} 
[+4 
w 
— 
— 
— 
=f 
<= 
= 
- *e 8s 8 8 & r= | ses eee 
. * es @© &® & @& . .* * ss @ 
. * 2s © &© &® & 
L od | ah seek eet ae eel eee ees *. 
<x >3>>3>23>253> ss <«<a< ~ 
a ooo0c[eo ila === eo > 
= >> > > > > ca o8aA8 — w 
oO - a@<ataaaca oo ot ad al — wg, 
“—  adab.ddtadad mn tig - 8 
t > #eeoe8es te ‘ee Ww 
t+ 4 w aeoacaeca ca [> + 42+ 4 eo 
w pO ae evel vel yel verry) -. usw rye yrelry xn 
ee eee eee ~~ ee eae —- 
z —- 222222 ~- 22 222 wn a 
w eo D> www . w ww we = 
e oO BS 4 — w 
. po | > eee 8 8 . w t @ fe 
a ~ ~ << eoacaa ~ a ~ eo - ~ ow 
2 - eo 4 22222 - z Ss =< ss sss aa re) . 
w coal > PVUTYE Tel rey ry) a w os ~ Oo aca oaa = oo w 
4 = . eetuee =< t =< on 22 222 By j -— 
— w —- we eee w _ w > ww [vuyyylry) w eo < 
<= ‘ 2 &- 2aaee i — ‘ . es toe a = = 
= A Oo << ooooo & oO oe -—- w ee hehe ead .,o Ww 
< =< > -—- +> >>> <= > =z cee ea ccc <= ‘ 
oO a x= ” «aac a <= a o <x oo ooo a <= w 
ive -_ —_ oJ -_ a | - no -—- WWM NAMM _ w J 
. ~ a ~ Ww _ = 
a > . . > 2 t va 
z ® Oe - a £ eo . e a 
[vu) o r- ZZ 2 <= w vn & ~ a wo x 
é jj <« s = - = t . oO = z  w 
- = @ a Prey ~ a -— « eo “” og ee we oe ms 
qn Qaw~r J a fe ” ee Dw aw - =x ee 8 72) Qa we 
zo o oOo >< oO w SO <a. wwe -oO t 
aw ow Vv VY we ws a ww oO ww - we ccc aw o wx 
oO 8 ~~ 4d ' I< 7. 8 ‘'<s - —- are . oow oc it ~~ mw 
> A <x< OO w +20. An A Aa ~jA << ar Be Zur OF <= 
- ~< OQ ewBe- Z2- daa we - ace weet est an &-~Ow “e ~Ounw ~<t 2 =~ 
w a eo ” &FwNO- OW ne a a o ” 32 " —@O< a eo 
- Le <o ot Bile me ee ee ehie © b sel elt oo ~ Bie © © seltie & seltle © © ehh +o _~ ou 
ed es 2a eww ww ww RR www Rw Ew 2 ewww newer ewww eee a ee 
< oe ot < < < csc ma < << < oe =< 
- - 2e be Co _ —- 2e fae on be - Ze 
” =“ “ w” ww Ska ” w” ” mY 
PF emcee Poors mb ohh res memes oP feos > ge emer e 8% A 


Del ee eel cel el cee cee eee cee cee oe cee oe see cel ee coe el el el ee cee oe oe cee cel, oe ool eee ek oe ook ook ook ooo ek ood ooo oo ooo oo oo oko oe te oe oe oe eg 


OPN T NOR ODO OPIS NOR. DAO — CIPI T WN OR. OPO CUP TIN OR. DOO CUP ATN OR- DOO CMI TIN OR 
VII AF AF WT SF FT TF TTT TUNNNENUNUAIUNIUIN OOOO OOO0OOOPR-P-PP-P-A-P-_P-P-R. COCO COCO GDN C0ED 
eh Sane Die Sd See Soe Dae Soe Dee Ded Sd Janet Janek Janek Jone Jed Janel Janek Jd Jd Jed Jonah Jd ed eh Jone ed Jd Dd ed a ed a a ed ee ae ed a Do ed od Sd od Sd Jind Jd Jed Jed Jd od eh eh eh 
COOOOOCOOOSOOOOOSOSOSOOSOOSOSOOSSOOSOSOSOSSOSSOSOSSSOOSOSOSSCOSOO 


PADD 7D7D3D7DN 7777373773 NNN NNN N73 3N3NNN3N7N9N9N9N9N9N9N9N3DN5DN5D5D5D5D5DN5ND5N5N5pR>pD>pD>pR>ma>pm—> 


PVE TITIES PD DDD DD DD rey Ale) 


i deth h h h e  e  e e e e  ) 2  ee Yl Pe ee tere *e ee *e*S ee te rte tere rere *S*S *S ee Fe *e *e*e *e *e8 Fe *8 


Ne 
J +s 
mow 
m~ 
om 
* ¢ 
ww 
>= 
aa 
Nx 
Mma 
‘2a 
or 
aw 
-—= 
_—M) 
@~«- 
a 
-—-n 
-o 
i 
<> 
<< 
>uw 
NO 
-- 
rn 
-Oo 
Det oll | 
oOo 
ww 
coco 
oo 
-r 
te 
ca 
Mee 
he | 
wor 
rom -_— al 
lant 4 al 
@ >< <u x >t 
Vv tse wus 
@ -—e 8 -—e 
boca + tw ‘8 
e ooac oa 
@ <z<«o << 
Sal wwe [veTvs) 
c can ca 
ce 
a 
Cc 
oa 
_ a 
ses 6 _m © & 
a=] nw -—cuT 
Cc ees ee 
@ << < x OK 
} 3 [vey veyvy) pry velrey 
Ss ee eee 
i) © 
| 
=< <= 
w = 
a Sel & . 
z mw ww ” 
-~ Ow a oO 
™~ wo x as 
= ot w f 
w PFA - + A 
a - «at ~—e - «& 
=z --a a --aA 
_— = ——F elie ©— +e 
[ —~S eee ee 
Ved < 
r=) - - 
w” ka 
4 A we 
-_ De ee ee ee el el el 
= 
> DOO WIM TN OP-O 
=< DOP AAAAAA OO 
a LEP LLP.” 
ee OOOCCOCCOCCCO 
pose Jee eee Se Seow ee bem ee ee Dee} 


DOO— CUM TWN OPr-0O 
eo) ee ee ee 
POWTER 


v04~000 


ee ee ee sere rere se ee +e 


eee 


13 
NDXVAS == DSRINDEX/INDEX Command Line interface 6-5 1984 01:14:1 AX-11 Bliss-32 V4.0-74 p 
NDXCLI == Main program = command Line interface 300-1382 93: O5i18 RUNOFF. REINDXVINS 8305 at 3} 


—S0 


Rot 2 I IOOO 


‘C9 Od OS Cd Od Cd Cd Cd Cd Cd Cd Od Od C9 OD C9 OD Od Cd CD Cd 09 Cd CD CD Cn CD Cd 09 C9 CD CD Od Ou C9 09 GD C9 CD CD CD00 C9 COCD 0D 


FUN 


Be Se Se Se Se Se Se Se Se Ge Be Se Fe Se Ge Be Ge Se Fe Be Se Se Se Be Se Se Se Ge Sse Se Ge St Ge Ge Ge Se Se Se Se Se Ge Ge Se Se Se Se Se Se Ge Se OSs Se Se Ss ee ee 


COOSCOCOOCOSCOOCOCOCOSOCOOSOOOOOOOOOOOOOOOOSOO OOOO OOCOOOOCOOoOOoOSoOO 


yoy oe oe >? ot ot ot at ot pt at nt at at te eee ee 


Ww 


ow 


ZSBITL "NDXCLI == Main program = command Line interface’ 
GLOBAL ROUTINE NDXCLI = 


FUNCTIONAL DESCRIPTION: 
i This routine uses the VMS DCL CLE to obtain command 

: Line information which is in turn passed to the INDEX 
application in a transportable manner. 

FORMAL PARAMETERS: 

None 

| IMPLICIT INPUTS: 

None 

IMPLICIT OUTPUTS: 

! CMDBLK = The command Line information block is filled in 
i 

i 

] 

i 

i 

i 

i] 
le 


ROUTINE VALUE: 
COMPLETION CODES: 


TERMINATION_STATUS = Set by CONDITION_HANDLER () 
SIDE EFFECTS: 
None 


BEGIN 


NABLE 
CONDI TION_HANDLER; 


LOCAL 
STATUS; 


NDXINI (); ! Do once-only initialization 
i] 
Get copy of whole command Line 


CLISGET_VALUE (ZASCID'SLINE', CMDBLK CNDX$T_COMMAND_LINEJ); 


/CNOJMASTER 
*WARNING® 


This must be parsed before other qualifiers. 
Other qualifiers depend on the value of this qualifier. 


*WARNING®* 


Fe a a ot ot ot ot te ee ee 
HPAEAPEQPEMANIM IIIS 
WR SOOBNAULWNR OO 


464 


47 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
& 
4 


SRERSS Ia SNS 


S823 


cccccccccccccecr ccccecer 
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NDXVMS == DSRINDEX/INDEX Command Line interface 16-Sep-1984 01:14:1 AX-11 Bliss-32 V4.0-74 
NDXCLI == Main program = command Line interface 12-368: 38 9h: 5:18 RUNOFF, RC INDXVMS .B32; 
' 
CMDBLK CNDX$V_MASTER] = FALSE; 
ZIF DSRPLUS 
5 XTHEN 
§ if yc tl SPRESENT (ZASCID'MASTER') 
8 CMDBLK CNDXS$V_MASTER] = TRUE; 
65 “FI 
“9 ; 
is /FORMAT = { DSR | TEX : filename | TMS11 C={ Ai! E 3) } 
0870 ! * WARN N * 
0871 ! Fath 
14 ! This must be parsed before other qualifiers. 
th Other qualifiers depend on the value of this qualifier. 
0875 *WARNING® 
OB79 CMDBLK CNDX$H_FORMAT] = DSR; ! Assume output for RUNOFF 
bae8 CHRSIZ = CHRSZA; ! Assume TMS11 type ‘A' characters 
ttt ZIF DSRPLUS 
0881 ZTHEN 
tt 
088 IF CLISPRESENT (%ASCID'FORMAT') 
0884 THEN 
0885 BEGIN 
bees CLISGET_VALUE (ZASCID'FORMAT', VALUE_STR); 
tt Al Bad CALL_TPARSE (VALUE_STR, FORMAT_STATE, FORMAT_KEY) 
tte SIGNAL_STOP (INDEXS$_BADVALUE, 1, VALUE_STR); 
44 IF .CMDBLK CNDXS$H_FORMAT] EQL TEX THEN PROCESS_TEX_FILE (); 
089 END; 
Baad 
895 2FI 
4 
Beg 
a8 /COLUMN_WIDTH = n 
300 *WARNING®* 
§ ! This must be parsed after /FORMAT and before any other 
: qualifier. It depends on the value of /FORMAT and other 
¢ qualifiers depend on the value of this qualifier. 
9 *WARNING®* 
908 CMDBLK CNDX$G_COLUMN_WID) = 34; ! Default column width is 34 
ai9 ZIF DSRPLUS 
91 ZTHEN 
912 
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LI == Main program = command line interface 1 30021982 93:05 RUNOFF. SRC NDXVMS .B32; oe 3 


Pad 
o 


494 IF_ CLISPRESENT (ZASCID' COLUMN WIDTH’) 

495 THEN 

49 BEGIN 

49 QUALIFIER_VALUE = 0; 

49 CLISGET_VALUE (%ASCID'COLUMN_WIDTH', VALUE_STR); 


IF NOT CALL_TPARSE (VALUE_STR, NUMBER_STATE, NUMBER_KEY) 
SIGNAL_STOP <INDEX$_BADVALUE, 1, VALUE_STR); 

CMDBLK CNDX$G_COLUMN_WID] = .QUALIFIER_VALUE; 

IF .CMDBLK CNDX$G_COLUMN_WID] LSS 5 
SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR, INDEX$_VALERR); 


PVSPVPISUSISSISISISIT 
WhO 


END 
ELSE 
BEGIN 


IF _.CMDBLK CNDX$H_FORMAT] NEQ DSR 
THEN | 


Typeset column width default is defined by the literal TMSCOL 
CMDBLK CNDX$G_COLUMN_WIDJ = TMSCOL; 


DOOOOOODODOODOODOOOOOODOOODOOD0090D FO 


BHPIAN AINANNIIRPIPOPIPNIPNPINI NY 2 SS OS 


ccccccccccecccccccecceccccccecceccece 
WN SO OONAVULS WN O OONAY EWN OOODNOULEW 


END; 


IAPOPUPOPOPOPororfonsern oo 


MEW OODONOUES WN (OVO ONOUSWANO0O0~ 


ZF 1 
O9c4 , 
Bee? ! /LAYOUT = {€ TWO_COLUMN | ONE_COLUMN | GALLEY | SEPARATE [= n) } 
bh *WARNING®* 
0949 ! This must be parsed after /COLUMN_WIDTH and before any other 
Bees : qualifier. It depends on the value of /COLUMN_WIDTH and other 
92) qualifiers depend on the value of this qualifier. 
0388 *WARNING® 
955 CMDBLK CNDX$H_LAYOUT] = TWO COLUMN; ! Default index Layout 
7 996 CMDBLK CNDX$G_SEPARATE_WIDTH) = .CMDBLK CNOX$G_COLUMN_WIDJ; 
5 B28 ZIF DSRPLUS 
eB aReD ten 
4 961 IF CLISPRESENT (ZASCID'LAYOUT') 
4 306 THEN 


= 
wes 


BEGIN 
QUALIFIER VALUE = -1; 
CLISGET_VALUE (ZASCID"LAYOUT', VALUE_STR); 


IF NOT CALL_TPARSE (VALUE_STR, LAYOUT_STATE, LAYOUT_KEY) 
SIGNAL_STOP (INDEX$_SADVALUE, 1, VALUE_STR); 


$ 


Be Se Se Se Se Ge Se Ge Se Ge Ge Se Se Ge FH Se Fe Se Se Ge Be Se Fe Ge FH Te Ge Gs Ge Ss Ge Se Ge Se Ss Ge Be Se Se Se Ss So SF Ss SH Ss SHS SH Se SH Se Se Se Sse esas 


PUPVDPV DV DVDPVPVDVDPVDPVPVPUSTSPUDUPSPVDISISE SUSU SUSI SUSU SISTA STOTT TTI 


= 
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NDXVM NDXVMS == DSRINDEX/INDEX Command Line interface 1b-$e -1984 01:14:1 AX-11 Bliss-32 V4.0-74 Pa 4 
VO0~000 NDXCLI == Main program = command Line interface 1 300-1382 94: 43:] RUNOFF .SRCJNDXVMS .B32; - 3 
; 1 U 097 
: § } i Hea St TER AL NEQ <1 
: gee Y dors — 
; § U 0975 i Boing SEPARATE index and user specified reference column width. 
; U ars ! Validate against minimum column width. 
2) eet: : 
: 560 U 399 IF  ,QUALIFIER_VALUE LSS 5 
; 561 U 0980 THEN 
3 308 ? 2 1 SIGNAL STOP (CINDEX$_BADVALUE, 1, VALUE_STR, INDEX$_VALERR); 
: 564 U 09 § CMDBLK CNDX$G_SEPARATE_WIDTH] = .QUALIFIER_VALUE; 
3 369 U 0984 END; 
5 28 U 0985 
: | 38h Y ORS _— 
; 269 U 0988 IF (.CMDBLK ENDX$H_ FORMAT EQL TEX) 
; 570 U 0989 AND (.CMDBLK CNDXSH_LAYOUT] NEQ TWO_COLUMN) 
Hb Bese sean 
.- U 099 
3 574 U $398 LOCAL 
; 209 uy 099% FORMAT_PTR; 
: 278 U 0996 FORMAT_PTR = ( 
5 3f8 u paads SECEC TONE -CMDBLK CNDXS$H_LAYOUT] OF 
: 580 U 0999 
; 581 U 1000 ONE ty me ZASCID ‘ONE COLUMN’; 
3 286 U 1001 GALCEYJ: BASCID "GALCEY'; 
: 58 U 100¢ SEPARATE): ZASCID "SEPARATE’; 
; 584 U 100 
; 585 U 1004 TES 
3 336 1993 ); 
; at U 1909 SIGNAL_STOP (INDEX$_BADVALUE, 1, .FORMAT_PTR, INDEX$_CONF QUAL); 
; 589 U 1008 END; 
; 590 U 1009 
3 91 1010 FI 
a Eg a eee 
; 3 1018 i /CNOITELLTALE_HEADINGS 
; % 1015 *WARNING®* 
: 598 1 i$ i This must be parsed after /LAYOUT and before /LINES_PER_PAGE 
; 599 1 18 ! It depends on the value of /LAYOUT and /LINES_PER_PAGE 
3 $90 } 1 : depends on the value of this qualifier. 
; 602 ? *WARNING®* 
; ope ' 5 CMDBLK CNDXS$V_TELLTALE) = FALSE; 
F 606 L 1025 2 ZIF DSRPLUS 
; 60 U 1026 ZTHEN 
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3 U1 

; $9 U1 IF_ CLISPRESENT (ZASCID'TELLTALE_HEADINGS') 

; 610 U1 THEN 

; 611 y BEGIN 

; $18 Ul ; IF .CMDBLK CNDXSH_LAYOUT] EQL GALLEY 

et: a 

: 616 U 1035 i Doing TS11 galley output. 

: ois : : § ' Telltale headings are not allowed 

; 619 y § ap SIGNAL (INDEXS$_IGNORED, 1, %ASCID*TELLTALE_HEADINGS’, INDEX$_CONFQUAL) 
; 6 1 U1 9 CMDBLK CNDXS$V_TELLTALE] = TRUE; 

: 6 j U 1949 END; 

: 624 U 104 

; 625 1044 “FI 

: 855 1068 

; 628 1947 | /LINES_PER_PAGE = n 

; 6 0 1943 *WARNING®* 

: g3! 1051 i This must be parsed after /FORMAT, /LAYOUT and 

: 635 1926 /TELLTALE_HEADINGS. It depends on the value of these qualifiers 
; t 5 1054 *WARNING®* 

; 637 1056 If CMDBLK CNDX$H_FORMAT) EQL DSR 

; 659 1058 BEGIN ! Formatting for RUNOFF 

3 641 1060 if .CMDBLK CNDX$V_TELLTALE) 

; ec 1908 CMDBLK CNDX$G_LINES_PAGE) = 52 ! 52 Lines with /TELLTALE 

: 3 H's ¢ CMDBLK CNDX$G_LINES_PAGE] = 55; ! 55 Lines per page otherwise 

; $49 1086 END 

3 648 106 ELSE 

; oe) 1908 CMDBLK CNDX$G_LINES_PAGE] = 54; ! 54 Lines per page for Typeset 
; 691 109 fF CLISPRESENT (ZASCID*LINES_PER_PAGE') 

ns gESIN 

; 655 1074 i User specified a value 

2) cee 7 

; 658 107 IF .CMDBLK CNDXSH_LAYOUT] EQL GALLEY 

: 86 1079 wong 

: $6) : ? | Galley output - ignore Lines-per-page 

: £0 1 : SIGNAL (INDEX$_IGNORED, 1, ZASCID'LINES_PER_PAGE', INDEX$_CONFQUAL) 
3 664 10 ELSE 


Be Se Se Ge Oe Ge Be Se Ge Se Ge Se Se Se Ge Ge Fe Se Ge Se Ge Se Se Ge Ge FF Ge Se Ge Ge Se Ge Fe Ge Se oe Fe Se Fe Se Se Se Se Se Se Se Se Se Se Se Sees Se Se Se Seas 


SN 
NOR) ot 
cccccccccccccccccecr 
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NDXVMS == = RSPINDER/ INDEX Command Line interface 1 1b-50 Sep-1 77 AX-11 Bliss- 4. 

NDXCLI == Main program = command Line interface 1 3007138 9}: 33 18 RUNOFF eSRe NOAVINS 6300 ‘eat 3 
4 BEGIN 
5 QUALIFIER_VALUE = 


CLISGET VALUE (ZASCID*LINES. PER_PAGE*, VALUE.STR); 

IF NOT CALL_TPARSE (VALUE_STR, NUMBER_STATE, NUMBER_KEY) 
SIGNAL_STOP (INDEX$.BADVALUE, 1, VALUE.STR); 

CMDBLK CNDXSG_LINES_PAGE] = .QUALIFIER_VALUE; 


DOOQOCOCOCOCSOO 


SOOO UNE WRI $9 ODN UE WIN SO OONOA UE WIN 9 ODNOAUE WN 0 OONOC UE WOOO 


9 

9 

9 

9 IF ¢ 

03 (. CMDBLK ge Kener paat LSS 15) 

8 we (.CMDBLK CNBX$H_FORMAT] EQL DSR) 

09 OR ( 
09 (.CMDBLK CNDX$G_LINES_ PAGE] LSS 25) 

AND (.CMDBLK CNBX$H_FORMAT] NEQ DSR) 

8 : (.CMDBLK CNDX$G_LINES_PAGE] GTR MAXLIN) 
SIGNAL_STOP (INDEXS$_BADVALUE, 1, VALUE_STR, INDEX$_VALERR); 
8 END; 

0 END; 

0 


Baptehicncemerians =n 
*WARNING®* 
This qualifier depends on the value of /LAYOUT 
*WARNING®* 
CMDBLK CNDX$G_GUTTER_WIDJ = 2; 
ay peru 


Db a tt 


-CMDBLK CNDX$H_LAYOUT] EQL ONE COLUHN) OR 
at ~CMDBLK CNDXSH-LAYOUT] EQL SALCEY 


i ONE_ COLUMN output which is not a separate master index 
or GALLEY output 
CMDBLK CNDX$G_GUTTER_WID) = 0; ! Gutter width is meaningless 
IF CLISPRESENT (ZASCID'GUTTER_WIDTH') 

SIGNAL (INDEXS_IGNORED, 1, ZASCID'GUTTER_WIDTH*, INDEX$_CONF QUAL); 
END 
BEGIN 


ELSE 


a a ee ee ec me ec ee ed nd ed od od ed 


eee ee ee ed a ed od dd dd od od = wd = wd SS 8 = 


Tr a ne ee a oe 
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vou~000 NDX 


o< 
~-z 
ene 


:; 7 3 u 114 

: f ? ¥ 1148 For all other page layouts 

; tg9 U 1144 QUALIFIER_VALUE = 2; ! Default value 
2. : U 1146 IF CLISPRESENT (%ASCID'GUTTER_WIDTH') 

iB ant aan 

; $30 y 1148 CL ISGET_VALUE (ZASCID'GUTTER_WIDTH’, VALUE_STR); 

: g é . He If _ NOT CALL_TPARSE (VALUE_STR, NUMBER_STATE, NUMBER KEY) 
; O34 uit § SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR); 

; £36 : 1133 END; 

: 738 y 4489 CMDBLK CNDX$G_GUTTER_WID] = .QUALIFIER_VALUE; 

: 739 U 1158 END; : 
: 740 U 1159 

> 741 1160 2 XFI 

Re OW 

3; 74 1168 i Validate the combinations of column width, gutter width, and 
; re 118¢ : right column width for master indexes. 

; tar 1166 ; *WARNING® 

: 749 1168 i This code depends on the value of /LAYOUT, /COLUMN_WIDTH 
: £30 1169 and /GUTTER_WIDTH 

; 3¢ 1174 ; *WARNING®* 

: 754 1178 SELECTONE .CMDBLK CNDX$H_LAYOUT) OF 

mo img ® 

; 37 1176 CTWO_ COLUMN): 

: 759 1178 IF (2 * .CMDBLK CNDX$G_COLUMN_WID]) + 

: 260 1179 4s cnmpetk CNDX$G_GUTTER_W10] GTR 120 

; 68 1181 SIGNAL_STOP (INDEX$_LINELENG) ; 

; 764 1 : SEPARATE): 

; 7 1185 IF .CMDBLK CNDX$G_COLUMN_WID] + 

: 76 1186 -CMDBLK CNDX$G-GUTTER-WID) + 

: 268 i “CMDBLK CNDXS$G~SEPARATE_WIDTH) GTR 120 

; £70 i : SIGNAL_STOP (INDEX$_LINELENG); 

; 7 1191 COTHERWISE): 

; 7 1198 IF CMUBLK CNDXSG_COLUMN_WID3 GTR 120 

: 77 1195 SIGNAL_STOP (INDEX$_LINELENG) ; 

: 77 1196 

: 778 119 TES; 


o<= 
=z 
ee OF 
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=-- Main program = command Line interface 1 


ccccceccccccccccccr 


co 
SRISAR 
me ee em em ee a ed ed ed ad = = dd wd = wd = 8 = = dd 2 


WWW IPR TOMURINRIIIMUNININD 2 2 
WIS OO NONE UN =OODNOUNE WSO 


mewn 


a 


p-1 RUNOFF .SRC JNDXVMS .832; 
/CNOJCONTINUATION_HEADINGS 
*WARNING®* 
This qualifier depends on the value of /LAYOUT 
*WARNING® 
CMDBLK CNDXS$V_CONTINUATION] = FALSE; 
Ere 


IF CLISPRESENT (XASCID*CONTINUATION_HEADINGS') 

BEGIN 

IF .CMDBLK CNDX$H_LAYOUT] EQL GALLEY 

THEN | 
i Doing ™S11 gal Ley output. 
Continuation headings are not allowed 
SIGNAL CINDEX$_IGNORED, 1, ZASCID'CONTINUATION_HEADINGS', INDEX$_CONF QUAL) 
CMDBLK CNDX$V_CONTINUATION) = TRUE; 

END; 


/NORE SERVE 
/RESERVE =n 


*WARNING®* 
This qualifier depends on the value of /LINES_PER_PAGE 
*WARNING®* 
CMDBLK CNDX$G_RESERVE_LINES] = 0; 
IF CLISPRESENT (ZASCID‘RESERVE') 
THEN 


BEGIN 
QUALIFIER_VALUE = 0; 
CLISGET_VALUE (ZASCID'RESERVE", VALUE_STR); 


IF NOT CALL_TPARSE (VALUE_STR, NUMBER_STATE, NUMBER_KEY) 
SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR); 
Fe OF ERLE GTR .CMDBLK CNDX$G_LINES_PAGE] 


ss 
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NOXVM NDXVMS == DSRINDEX/INDEX Command Line interface bse =1984 01:14:1 AX-11 Bliss-32 V4.0-74 Page 29 ND) 
yOu~000 NDXCLI == Main program = command Line interface =300-1 382 93:05:18 RUNOFF .SRCJNDXVMS B32; : 3 v0e 
; $ 4 SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR, INDEX$_VALERR); £ 
; 5 1 5 EROLK CNDXS$G_RESERVE_LINES] = .QUALIFIER_VALUE; : 
: 840 1 § : 1 
: B41 1260 ' 3 | 
; Ag 1 6] i /LEVEL = n 3] 
: 4 1 § ' 3s 1 
; rf } o *WARNING® ; 
; re] } 22 This qualifier depends on the value of /MASTER : } 
: B48 1 e i *WARNING® § | 
; 49 1268 ! : 1 
; 850 69 CMDBLK CNDXSH_LEVEL = 99; ! ALL levels ; 
: b5¢ L 1271 2 XIF DSRPLUS 
eg hain 
: 855 U 1274 IF CLISPRESENT (%ASCID'LEVEL") 
; 856 U 1275 THEN 
: 857 U1 2 BEGIN 
: 898 u ue CLISGET_VALUE (ZASCID'LEVEL', VALUE_STR); 
: 860 u 4 ; IF NOT CALL_TPARSE (VALUE_STR, NUMBER_STATE, NUMBER_KEY) 
: 86 u 81 SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR); 
: 864 y 1988 3 IF .QUALIFIER_VALUE LEQ 0 
: 865 U 1284 2 TH 
: 866 ¥ 1285 SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR, INDEX$_VALERR); 
: 868 u 1387 CMDBLK CNDXS$H_LEVEL] = .QUALIFIER_VALUE - 1; 
: 870 U 1289 ELSE 
: 871 U 1290 BEGIN 
; BT U 1291 
; B75 4 3¢ IF .CMDBLK CNDX$V_MASTER) 
: 879 ! 129% CMDBLK CNDX$H_LEVEL) = 1; ! Levels 0 and 1 for /MASTER 
: U 1296 END; 
; U 1297 
8 129 <F1 
: 129 
3 1300 ! 
; 1 i /CNOJGUIDE_HEADINGS 
: § CMDBLK CNDX$V_GUIDE] = FALSE; 
; 1 03 ZIF DSRPLUS 
: H $ ZTHEN 
; o3 If CtISPRESENT (ZASCID*GUIDE_HEADINGS') 
: 10 CMDBLK CNDX$V_GUIDE] = TRUE; 
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NOXVM NDXVMS == DSRINDEX/INDEX Command Line interface 18-5 =1984 01:14:1 AX-11 iss- 4.0-74 } 
v04-0 NDXCLI == Main program = command Line interface 1 =300- 1382 93:05:18 RUNOFF SRE NDAVIS “O30, tee 3 voe 
93 1 “FI 
94 1 
95 1 ! 
2 } /CNOJIDENTIFICATION 
98 1 ; 
99 1 IF CLISPRESENT (ZASCID' IDENTIFICATION’) 
900 1 THEN ahora saat 
3 SIGNAL CINDEXS_IDENT, 2, .NDXVRL, .NDXVRP); 
302 /CNOJLOG 
905 i 
208 
aide 4 CLISPRESENT (ZASCID'LOG') 
909 3 ne CMDBLK CNDX$V_LOG] = TRUE 
, ; CMDBLK CNDX$V_LOG] = FALSE; 
3 ! 
3 ! /NOOUTPUT 
/OUTPUT = filespec 
: ! 
3 


IF CLISPRESENT (XASCID'OUTPUT') 
THEN 


CLISGET_VALUE (ZASCID'OUTPUT', CMDBLK CNDX$T_OUTPUT_FILEJ); 
E 
CMDBLK CNDX$V_OUTPUT] = FALSE; 


i] 
/CNOJOVERRIDE 


UMEPUN SO OONOUS WN —OVOONOUSWN—O 


ee a ee ee ee ee eee ee ee ven Ne wee we SCUTTLE NS SS 6 NS 88 a SS et ee ee ee ee a a er SS Se a 


ec ee el ee ee ee ce ee ce ed ee ee ee ee ce ee ee ee ee ee ee ee ee ee ee ee ce ee ee ee ce ee ce ce ce ce cee ce cD cee ee ee cD ee ce ee ee ee ed ee 


BEGIN 
CMDBLK CNDX$V_OUTPUT = TRUE; 
§ EL 


Be Pe Se Se Se Ge Se Se te Be Ge Se Ge Fe Se Se Ge Ge Se Ge Fe Fe Ge Ge Se Ge Se Se Ge Se Ge Se Ge Ge Ge Fs Ge Se Ge Se Fe Se Se Se Se Se Se Se Ss Se FHSS Se Se Se Sees 


Pi i 
3 CMDBLK CNDX$V_OVERRIDE) = FALSE; 
L 135 ZIF DSRPLUS 
u 3 ZTHEN 
7 y s IF CLISPRESENT (ZASCID'OVERRIDE_MASTER') 
38 u 3 CMDBLK CNDX$V_OVERRIDE] = TRUE; 
40 326 “FI 
343 4 ; | 
94 6 i /NOPAGE_NUMBERS 
9b $$ i /PAGE_NOMBERS = (CCNOJRUNNING], CCNOJMERGE) 
34 69 | NORUNNING is the same as STANDARD. 
948 85 CMDBLK CNDX$V_STANDARD_PAGF] = TRUE; ' Generate standard page numbers 
949 68 CMDBLK CNDX$V_PAGES] = TRUE; ! Generate page numbers 
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¥O0~000 NDXCLI == Main program = command Line interface 122868: 38 94:033] RUNOFF .SRC JNDXVMS.B32; ™ 3) 
; 950 1 $ 
; «951 3 Z1F NOT DSRPLUS 
; 2 § ! f ZTHEN 
; gee } o CMDBLK CNDX$V_PAGE_MERGE] = TRUE; ! Merge page numbers for DSR 
; 229 ¥ ! t? ZELSE 
3 326 2 } CMDBLK CNDX$V_PAGE_MERGE] = FALSE; ! Page ranges formed by .XPLUS (BEGIN = END) 
3 444 ] 4 *FI 
. 3 1 Hi SELECTONE CLISPRESENT (ZASCID'PAGE_NUMBERS') OF 
; © 1 BS SET 
: 964 1 
; 965 1 rf: CCLIS_NEGATED): 
: 966 1385 ! 
; 444 ' 8 : Qualifier explicitly negated (/NOPAGE_NUMBERS). 
; 969 1388 CMDBLK CNDX$V_PAGES] = FALSE; 
: 970 1389 
; 971 1390 CCLI$_PRESENT): 
; are 1391 BEGIN 
: 97 1336 ! 
3 are 1387 Qualifier was given explicitly on command Line. 
3 376 1332 WHILE CLISGET_VALUE (ZASCID*PAGE_NUMBERS', VALUE_STR) DO 
; 978 1397 IF NOT CALL_TPARSE (VALUE_STR, PAGE_STATE, PAGE_KEY) 
: 979 1398 THEN 
; 980 1399 SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR); 
: 981 1400 
; 98 1401 END; 
; 98 1008 
3; 6984 140 COTHERWISE): 
; 985 1404 ! 
; «986 1405 ' CLIS_ABSENT, CLIS_DEFAULTED. 
: 987 1406 ' Qualifier is present by default. 
: 988 1407 ! 
: 4989 1408 F 
: 990 1409 
3; «991 1410 TES; 
; 308 1411 
; 99 11g ! 
3: 994 141 ' /NOREQUIRE 
; 995 1414 ' /REQUIRE = filespec 
$ 44 1415 : 
: p44 1416 CMDBLK CNDX$V_REQUIRE] = FALSE; 
; .999 1213 IF CLISPRESENT (ZASCID'REQUIRE') 
3 1000 141 THEN 
3; 1001 1420 BEGIN 
3 1008 1421 CMDBLK CNDX$V_REQUIRE) = TRUE; 
: 100 14 4 CLISGET_VALUE (ZASCID*REQUIRE*’, CMDBLK CNDX$T_REQUIRE_FILEJ); 
3 1004 14 END; 
3; 1005 1424 
3 1 1425 : 


NDXVM 
v04-0 


Zz2 
o°9o 
<>< 


ODOONOULSWN—OOCONA Oc 


~-=z 
-—o 
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=-- Main program = command Line interface 1 7300-1382 935033] RUNOFF’ SRE NDAVINS 63044 a 3B 


/SORT = (CC WORD ! LETTER 33, CNONALPHA = { IGNORE | BEFORE | AFTER })) 


CMDBLK CNDX$V_WORD SORT] = TRUE; ! Word by word sort is default 
CMDBLK ENDXSHCNORACERAS = IGNORE; ignore Leading nonalphas 


~ Ss 


S 


SRPLUS 


IF D 
THEN 
IF CLISPRESENT (ZASCID*SORT') 
THEN 
WHILE CLISGET_VALUE (ZASCID'SORT', VALUE_STR) DO 
4 Daal CALL_TPARSE (VALUE_STR, SORT_STATE, SORT_KEY) 


SIGNAL_STOP (INDEX$_BADVALUE, 1, VALUE_STR); 


cccccccccccr 


xFI 
' 


; Process all input files and local qualifiers 
CMDBLK CNDXS$V_INPUT_CONCAT) = FALSE; 

woe ° pal = CLISGET_VALUE (ZASCID' INPUT’, CMDBLK CNDX$T_INPUT_FILEJ)) DO 
3 


pepn fon fofolelofojlolelolelelelelelelelelolelololololo! 


WWI AIRS PIPIPIPININPONINND 2 4 OO OS S | OOD 


IF DSRPLUS 
THEN 


' 
! /OPTIONS = input file is an options file 


IF CLISPRESENT (%ASCID'OPTIONS') 

THEN 
BEGIN 
i Make sure /BOOK_IDENTIFIER was not also specified. 
Make sure options file is last in concatenated List. 


OSooo0o 
SUWwiw 


DONAOULS WN OC OONAOULS WN OO ONAOUS WR 


taal (ZASCID"BOOK_IDENTIFIER") 

SIGNAL (INDEXS$_IGNORED, 1, ZASCID*BOOK_IDENTIFIER', INDEX$_CONFQUAL); 
IF .STATUS EQL CLIS_CONCAT 
THEN 

BEGIN 


i Current input file concatenated to next - error. 


SIDED PPA PAPA DAI PPP LEE 


CNAME WN OO OONAUE WN 9 DONA NEW @ OO ONAOU EWN OW ONOULSWN—O0@ 


CLISGET_VALUE (ZASCID'INPUT', VALUE_STR); 
SIGNAL TINDEX$S_IGNORED, 1, VALUE_STR, INDEX$_NOLIST); 
' 

i Process options file and exit loop 


el a ed ed ed ed ce ce ee ee ee cc ed ae ed cee ee ee ce ce ce cee ce ee ce el ee ec ce ee ce ec ee ee ee ee ee ee ee ee ed ee ee ede 
a a a a ee a a a ee ee ee ed od ed a 
Fe at at et ee ee te et i eh ee ee ek ek ek ek eh eh eh ee ee 


Se Se Se Ge Ge Se Ge Se Ge Se Ge Be Se Ge Ge Se Ge Ge Ge Fe Se Se Se Se Ge Fe Fe Ge Ge Ge Ge we FH Se Se Ge Be Ge Ss Oe Ge Ge Se FH Se SF Se Se SE Se Se Sees ee Be eeee 


ooo 
RESELRARRRAARAE EER EE REE 
cccccecceccccceccccecceccececcecececr 
bee): de. i ee 
M—OOONOUS WMO 


WoO 


1 
1065 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


btated 
CONIC 


ccccccccecce 


att os — = ss as > 9 Os Sh) ) Ss 3 ss ss Ls 1 YS 


p-1 


! 

OPTIONS FILE (); 
EXITLOOP; 

END; 


Process /BOOK_IDENTIFIER qualifier if present 


PARSE _BOOK (); 


' 
Process this input file. 
i 
i 


NDXINP (); 
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RUNOFF ..SRC JNDXVMS .B32; 


NDXINP () will call MAKNDX to generate an output index 
if this input file is not concatenated to the previous one. 


re CNDXS$V_INPUT_CONCAT] = (.STATUS EQL CLI$_CONCAT); 


| Generate last output index and clean up 
MAKNDX (); 
a (. TERMINATION_STATUS OR S7S$M_INHIB_MSG); 


-TITLE 

- IDENT 

-PSECT 
00000 ; TPASKEYSTO 


U.9: -BLKB 
47 4E 49 GE 4E 55 52 00000 ; TPASKEYST 
- V1: -ASCII 


$0008 ;TPASKEYETO 


U. 6: J LK 
47 46 49 4E 4€ 55 52 4F 4E 00008 At rey OPP 


90011 F “BYTE 
FF 0012 ; TPASKEYFILL 

U.23: BYTE 
.PSECT 


00000 NUMBER_STATE:: 
41F3 00000 ; TPASTYPE 


NDXVMS NDXVMS -- DSRINDEX/INDEX Command Line in 
terface 

\V04-000\ 

_LIBSKEY1$,NOWRT, SHR, PIC,1 


0 

\RUNNING\ 
0 

\WORUNNING\ : 
of : 


-LIBSSTATES,NOWRT, SHR, PIC,1 


0 


+ by Xv" NDXVMS == DSRINDEX/INDEX Command Line interface 18-50 -Sep-1984 AX-11 Bliss-32 V4.0-74 ND 
-000 NDXCLI == Main program = command Line interface 1 300-1382 94: O73] RUNOFF SRE NDXVINS “630, — 3 vO 
U.2: «WORD 16883 : 
oie an MM teeeaeet <<QUALIF IER_VALUE=U.3><4 , 
33 , “U.3>-4> : 
15F7 00006 ; TPASTYFE : ‘ 
U.4: WORD 5623 ; 
FFFF 00008 ; TPASTARGET 
U.S: WORD =1 ; 
15F7 QOOOA ; TPASTYPE 


0.6: «WORD 5623 : 
FFFF OOO0C ; ,TRASTARGET , 
8900 BLK x8 2 
10 PAGE_STATE: 0 
8300 00010 ; TPASTYPE 
0.1 -WORD -32000 5 
01 00012 : TPASFLAGS2 
0.13: -BYTE 1 : 
00000000 00013 ; TPASPARAM 
U. 14: -LONG 0 : 
00000000V 00017 ; TPASACTION 
U. 7h. sh <<ENTER_PAGE=U. 15>=4> : 
8701 0001B ;TPASTYPE 
U.19: WORD -30975 F 
01 0001D ; TPASFLAGS2 
U.20: -—BYTE 1 s 
09000001 OO001E ; TPASPARAM 
U.22: -LONG <<ENTER_PAGE-U.22>-4> é 
15F7 006026 US ASTYPE 
4: 5623 3 
FFFF 00028 ; TPASTARGET 
0.25: » WORD -1 é 


-PSECT _LIBSKEYO$,NOWRT, SHR, PIC,1 
00000 NUMBER et 


0 
00000 aTPASKEYD , 
00000 PAGE_KEY:: 0 
00000 ; TPASKEYO 
0.8: -BLKB 0 
0000* 00000 ; TPASKEY 
WO <U.9-U.8> 3 
0000* 00002 U EPASKEY 
U.1?7: -WORD <U.16-U.8> 3 


.LONG 1 ‘ 
00000000v 00022 ; TPASACTION 
.PSECT S$PLITS,NOWRT ,NOEXE ,2 


00 00 00 45 4E 49 4C 26 £00 P.AAB: .ASCII Wepre 3 

6} g 68 3 008 P.AAA: .LON ; 

0000000' Boe ADDRESS P.AAB § 

00 45 47 41 50 SF 52 45 50 SF 53 45 4E 4 $5 gio P.AAD: <ASCII  \LINES _PER_PAGE\<0><0> 3 


NOXVM 
v04-0 


00 45 47 


00 45 47 


00 4E 4F 


41 


41 


49 


53 


53 
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NDXVMS == DSRINDEX/INDEX Command Line interface 16-Sep-1984 214: AX- 
NDXCLI == Main program = command Line interface 13-88-1382 9h: b5:18 Minot reser 
83 60005: pees soe ess poaAD 
50 SF 52 45 50 SF 53 45 4E 4 $6 § P.AAF: .ASCII \LINES_PER_PAGE\<0><0> 
SHS ‘depen OMe ss PoMAr 
50 SF 52 45 50 SF 53 45 4E 4 36 45 P.AAH: .ASCII \LINES_PER_PAGE\<0><0> 
oi8 68 QO P.AAG: .LONG 17694734 
0 . 4 ADDRESS P.AAH 
00 45 56 52 45 53 4 8 P.AAJ: .ASCII VBE SERYE\<O> 
918 68 9 «AAI: LONG 176947 
0 , ADDRESS P.AAJ 
00 45 56 52 45 53 4 § P.AAL: .ASCII VBE SE RYE \<O> 
ah 0070 P.AAK: .LONG 1769472 
000 “73 " B88 ADDRESS P.AAL 
54 41 43 49 46 49 54 4E 45 44 $6 oars P.AAN: .ASCII \IDENTIFICATION\<0><0> 
01060006 0088 P.AAM: .LONG 17694734 
0000000" 0008C «ADDRESS P.AAN 
00 47 4F a 0090 P.AAP: .ASCII \40 \<0> 
ah 444 0094 P.AAO: .LONG 17694723 
a} tae ¢ 2 0098 «ADDRESS P.AAP 
00 00 54 55 50 54 55 4F Q009C P.AAR: .ASCII \OUTE YT) <0><0> 
010 $008 ti P.AAQ: .LONG 17694726 
sat 0000' 000A8 «ADDRESS P.AAR 
00 00 54 55 50 54 4F QOOAC P.AAT: .ASCII YOYT YL) <0><e> 
010E0006 Q00B4 P.AAS: .LONG 17694726 
we het’ 0088 ADDRESS P.AAT 
52 45 42 40 55 4E SF 45 47 41 Bees P.AAV: .ASCII oh ppacees 
010E000C O00C8 P.AAU: .LONG 1769473 
00000000° O00CC ADDRESS P.AAV 
52 45 42 4D 55 4E SF 45 47 teooke Babe Serr et \OAGE oN ERS\ 
6006009 * QO0E0 ADDRESS P.AAX 
00 45 52 49 55 51 4 QOE4 P.AAZ: .ASCII YAEOUIRE\<O> 
010E000 QOEC P.AAY: .LONG 1769472 
saa hae * QOOFO ADDRESS P.AAZ 
00 45 52 49 55 51 4 OOF4 P.ABB: .ASCII VBE OUARE\<0> 
010E000 OOFC P.ABA: .LONG 1769472 
00000000° 001 ADDRESS P.ABB 
00 00 00 54 55 50 4E 49 00104 P.ABD: .ASCII LAPYT \<0><0><0> 
010E0005 001 3 P.ABC: .LONG 17694725 
_ <2 D 
00000000° 0011 ADDRESS P.AB 
-PSECT SOWNS,NOEXE,2 
0000 00000 VALUE_STR: 
> WORD 9. 2 
00869006 B00 -LONG 0 
000 00008 ePTiens 20 5 
A -BYTE 14, 2 
00060086 Go00¢ PONG _ 0 
10 QUALIFIER_VALUE: 
-BLKB 4 


Page 3 


See Se Se Se Ge Ge Se Se Se Se Be Be Se Be Be Be Be Be Be Se Se Fe Fe Se Ge Se Be Be Be Fe Ge Be Be Ge Se Ge Ge Be Be Se Be Ge Se 


ss 


Pete Se Se ee ee Se ee Se Se Sees 


NOXVM NDXVMS == DSRINDEX/INDEX Command Lire interface 14-46 S$ep-1984 14:1 AX-11 Bliss-32 V4.0-74 Pp 
yO4~000 NDXCLI == Main program = command Line interface 14- ~Sep-1 38 94:43 § RUNOFF .SRC JNDXVMS.B832: “4 _ (3 v0 
00000001 00014 TERMINATION STATUS: : 
.EXTRN DSRINDEX$_BADLOGIC : 
.EXTRN DSRINDEX$-BADVALUE : 
-EXTRN DSRINDEX$—INSVIRMEM F 
-EXTRN DSRINDEX$~LINELENG : 
-EXTRN DSRINDEXS-NOREF ; 
-EXTRN DSRINDEX$~OPENIN ; 
.EXTRN DSRINDEX$~OPENOUT ; 
-EXTRN DSRINDEX$- TOOMANY ; 
-EXTRN DSRINDEX$~VALERR : 
-EXTRN DSRINDEX$~CANTBAL : 
.EXTRN DSRINDEX$~CLOSEQUOT ; 
-EXTRN DSRINDEX$~CONFQUAL ; 
-EXTRN DSRINDEX$-CTRLCHAR : 
-EXTRN DSRINDEX$_DOESNTF IT : 
-EXTRN DSRINDEX$~DUPBEGIN ; 
-EXTRN DSRINDEXS$-EMPTYIN ; 
-EXTRN DSRINDEX$~1GNORED F 
-EXTRN DSRINDEX$~INVINPUT ; 
-EXTRN DSRINDEXS—INVRECORD : 
-EXTRN DSRINDEXS$-LASTCONT F 
-EXTRN DSRINDEX$-NOBEGIN ; 
-EXTRN DSRINDEX$—NOEND 3 
-EXTRN DSRINDEX$—~NOINDEX ; 
-EXTRN DSRINDEX$_NOLIST 3 
-EXTRN DSRINDEX$_OVERSTRK ; 
-EXTRN DSRINDEX$~ SKIPPED ; 
-EXTRN DSRINDEXS” SYNTAX ; 
“EXTRN DSRINDEXS~TEXFILE ; 
-EXTRN DSRINDEX$~TOODEEP ; 
-EXTRN DSRINDEX$~TOOFEW 3 
-EXTRN DSRINDEX$- TRUNCATED : 
-EXTRN DSRINDEX$~ COMPLETE : 
“EXTRN DSRINDEX$~ CREATED ; 
-EXTRN DSRINDEX$_IDENT ; 
-EXTRN DSRINDEX$-PROCF ILE ; 
.EXTRN DSRINDEXS$-TEXT, DSRINDEX$_TEXTD : 
-EXTRN DSRINDEX$~TMS11 ; 
SEXTRN TAB THSCOL, MAX IN : 
SEXTRN CLI$_CONCA PRESENT ; 
-EXTRN CLIS"NE EGATES, CTs DEFAULTED ; 
-EXTRN CLIS“AB ABSENT LR ; 
“EXTRN CHRSIZ, CHRSZA, ChisZE : 
-EXTRN NDXVRL NDXVRP DXINI : 
-EXTRN DXINP KNDX, ttt PRESENT ; 
EXTRN CLISGEf_VALUE + LIBSTPARSE : 
<PSECT SCODES,NOWRT,2 
OFFC 00000 .ENTRY NDXCLI, Save R2,R3,R4,R5,R6,R7.R8,R9.R10,- ; 0800 
8 ' EF 9 02 MOVAB NUMBER_STATE, R11 F 
A ' 3 MOVAB NUMBER“KEY, F 
9 p0 9019 MOVL #DSRINDEXS | ADVALUE, R9 : 
8 3 6 MOVAB LIB$STO : 


14 
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yOu~000 NDXCLI <= Main program = command Line interface 1 730071382 94:05:18 RUNOFF .SRC JNDXVMS.B32; nat 3 vo 
7 6 00 E 13 MOVAB CLISPRESENT, R7 ; ; 
$ G E MOVAB CLISGET VALUE, R6 : ; 
EF 9€ g MOVAB P.AAA, : ; 
4 ' EF 9E MOVAB VALUE STR, R4 : : 
3 6 EF BE ope MOVAL ADBLR RS ? 0832 
000000006 EF 6 FB 00046 CALLS #0 SNOXINI + 0840 ; 
48 A3 9F 0004D PYSHAB CMDBLK+72 : 0845 ; 
DD 2 PUSHL R : ; 
66 2 FB 00 CALLS #2, CLISGET_VALUE : ; 
01 A 4 BA 5 BICB2 #4. CMDBLK+T : 0857 ; 
000000006 EF 000000006 EF : 55 MOV CHRSZA CHRSI : 0878 : 
oC A 2D 64 MOVL = &f CADBLK +1 : 0908 : 
C4 = A3-_: 00010001 F DO 066 MOVL #65537, CMDBLK+4 : 6877 ; 
ic OA 0C A3 DO 000 g MOVL CMDBLK+12, CMDBLK+28 : 0956 F 
O71 A 19 8A 0007 BICB2 #16, CMDBLK+ F 1023 ; 
07 04 A’ Bl 90079 CMPW 33s CMDBLK+4, #1 : 1056 : 
11 12 0007D BNEQ & : : 
06 01 A3 04 E1 0007F BBC #4, CMDBLK+1, 1$ + 1060 : 
16 AS 4 D0 00084 MOVL #52, CMDBLK+20 : 1062 : 
OA 11 00088 BRB : F 
146 AB 7 DO OO08A 1$: MOVL #55, CMDBLK+20 : 1064 ; 
04 11 OO8E BRB : 1056 : 
14 «AB 6 DO 000 28: MOVL #54, CMDBLK+20 + 1068 ; 
18 AS 9F 00094 3$: PUSHAB  P.AA + 1070 ; 
67 01 FB 00097 CALLS #1, CLISPRESENT : ; 
7B 30 E9 O009A BLBC . ; : 
04 06 A3 61 0009D CMPW 836s CMDBLK+6, #4 : 1077 ; 
1A 12 000A1 BNEQ : ; 
000000906 8F DD 000A3 PUSHL  #DSRINDEX$_CONF QUAL + 1082 : 
0 AS 9F 000A9 PUSHAB P.AAE : : 
01 DD OOOAC PUSHL #1 : F 
000000006 8F DD OOOAE PUSHL #DSRINDEX$_IGNORED : : 
090000006 00 04 FB 000B4 CALLS #4, LIBSSIGNAL : : 
B 11 00088 BRB : 3 
10 A& 04 000BD 4$: CLRL § QUALIFIER_VALUE > 1085 : 
54 0D 99¢ PUSHL R4 + 1086 3 
48 AS 9F 000C PUSHAB P.AAG : : 
66 92 FB 000C CALLS #2, CLISGET_VALUE : ; 
A bd 000¢8 PUSHL R10 + 1088 ; 
0810 8F BB OOOCA PUSHR #*M<R4,R11> 3 é 
00000000v a 03 FB OOCE CALLS #3, CALL _TPARSE : 3 
9 0 €8 000D BLBS RO, 5$ : : 
54 DD 00008 PUSHL : 1090 3 
Qi DD OOODA PUSHL #1 ; : 
9 DD 000DC PUSHL : : 
6 03 F ODE CALLS #3, LIBS$STOP : : 
4 =A 10 A4& DO 000E7 S$: MOVL QUALIFIER VALUE, CMDBLK+20 : 1092 3 
50 14 a3 DO 000E6 MOVL § CMDBLK+207 R : 109 : 
OF 3 D1 GEA CMPL =soRO, #15 : : 
$ 18 OO0ED BGEG ; 
01 04 A3 Bi OOOEF CMPW CRDBLK+4, "1 + 1096 
14 13 OF BEQL $ : 
19 0 : F5 6$: CMPL = RO, -#25 : 1099 
: & OO00F BGEO )6=ss 7$ ; 
01 04 A3 Bi OOOFA CMPW CDBLK#4, rh : 1100 
09 12 OOOFE BNEQ $ ; 


000000006 8F 
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01 
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+ tha NDXVMS == DSRINDEX/INDEX Command Line interface 1 
v04- NDXCLI == Main program = command Line interface 1 


1 


iat ORS 
OW "0-0 
eo 
ee 


MDVWOM OVWon 


SF S OO0000000000 0000 i II II On 
DROORSER Mr S Oe NAO NOM Sore aio oroeee nee 


oOowwwwr> 


OWS FAI" > 


\g AX=11 Bliss-32 V4.0-74 


RO, #MAXLIN 
#DSRINDEXS_VALERR 
#1 


RY 

#4, LIBSSTOP 

#2, CMDBLK+16 
BLK+6, R1 


CMDBLK+12, R 
SCmDBLK+TSCRO3, RO 

Rl, #3 

CMDBLK+16, CMDBLK+12, RO 
CMDBLK+28, RO 

R #120 

CMDBLK+12, #120 


MDSRINDEXS _LINELENG 
#1, LIBSSTOP 


AA 
ae CLISPRESENT 
QUAL IF IER_ VALUE 
R4 


P. AAK 
#2, CLISGET_VALUE 
R16 


#AM<R4,R11> 
#3, CALL_TPARSE 
RO, 15$ 


e 


#1 


RY 
#3, LIBSSTOP 
QUALIFIER_VALUE, CMDBLK+20 


#DSRINDEXS_VALERR 
#1 

#4, LIBSSTOP 

QUALIFIER VALUE, CMDBLK+24 
#99, CMDBCK+10 

#128, CMDBLK 

wi, CLISPRESENT 

RO. 18$ 


sé 


RUNOFF .SRCINDXVMS .B32; 


000000006 00 


67 
oA 
01 =A3 
009¢ 
67 
OF 
63 
30 
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66 
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63 0828 
00C0 
67 
000000006 8F 


000000006 8&F 


0004 
66 
1¢ 

10 
00000000V EF 
ES 

00E4 

38 

OOF4 

8 

orbe 
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1986 3:07:15 — ERtnorFesRe 


#DSRINDEXS IDENT 
#4, LIBSSIGNAL 
P.AAO 
#i, CLISPRESENT 
#2. CMDBLK+1 

#2, CMDBLK+1 
P.AAQ 

#i, GL ISPRESENT 
RO, 21$ 

Y CMDBLK 
CMDBLK+4 


P.AAS 
£4 CLISGET_VALUE 


#2088, CMDBLK 
P.AAU 


#1, CLISPRESENT 
RO, #CLIS_NEGATED 


#8, CMDBLK 
RO, #CLIS_PRESENT 
ey 


P.AAW 
#2, CLISGET_VALUE 
RO, 25$ 


R1 

PAGE_STATE 

#3, CALL_TPARSE 
RO, 24$ 


#1 

RI 

#3, LIBSSTOP 

us CHDBLK 

#i, CLISPRESENT 
RO, 26 

#4. CMDBLK 
CMOBLK+56 

#2, CLISGET_VALUE 
#1, CMDBLK+T 

#3. CMDBLK+8 

é CHDBLK 
CMOBLK+4 

P. ABC 

#3, CLISGET_VALUE 
RO, STAT 

STATUS, 29S 


i 


< 
SoS 


Pete Se Se Se Se Sete Se Se Se te tet 


63 


; Routine Size: 


01 


000000006 
000000006 


000000006 
0 14 


713 bytes, 


00000000v 


Routine 


EF : 
8F D1 
i 

00 50 F 
14 
EF 06 Fe 
A& 10000000 F bs 
0000 
43 D4 
E bo 
7E 04 A Dd 
EF 0S FB 
04 


Base: $CODE$ + 0000 


M14 
NDXVMS == DSRINDEX/INDEX Command Line interface 16-Sep-19 
NDXCLI == Main program = command Line interface 14-Sep-19 


a MF: 


CALLS 
CLRL 


an 
2=z 
mo 
or 


DWOGe-- 


UNOF F . SRCJNDXVMS .B32; 
» NDXINP 
STATUS, #CLIS_CONCAT 


1g pad Bliss-32 V4.0-74 
1 R 
’ 


R 
RO, #0, #1, CMDBLK 
27$ 


#0, MAKNDX 
Pobeeseese, TERMINATION_STATUS, RO 


Save nothing 
=(SP) 


SP 
4(AP), =(SP) 
#3, CONDITION_HANDLER 


Sete Fe Se Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se & 
Oa 
Oumus 
We 
MWNROCO 


sz 
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S_ == DSRINDEX/INDEX Command Line interface 16-Sep-1984 01:14:1 Aa-11 Bliss-32 V4.0-742 
TION HANDLER = Main program condition hand 122808- 1382 93:09:18 RUNOFF . SRC INDXVMS..B32: 1 
ZSBTTL "CONDITION_HANDLER = Main program condition handler = sets termination status’ 
ROUTINE CONDITION_HANDLER (SIG : REF BLOCK C, BYTE], MCH : REF BLOCK C, BYTE]) = 


i FUNCTIONAL DESCRIPTION: 


i] 

This routine is enabled by NDXCLI as a condition handler. 
Whenever a signal is generated, the signal severity is examined. 
If the condition is more severe than any previous condition, 
(success, rene error, severe error) the severity is recorded 
in termination_status which is the condition severi y- NDXCLI 
returns the value of TERMINATION STATUS as the pro ram status 
which will set the value of the BCL SSTATUS variable. 


FORMAL PARAMETERS: 


S1G - address of signal array 
MCH - address of mechanism array 
IMPLICIT INPUTS: 
TERMINATION_STATUS - current termination severity 
IMPLICIT OUTPUTS: 
TERMINATION_STATUS - may be set to the severity level in the 


signalled condition if it is more severe 


ROUTINE VALUE: 
COMPLETION CODES: 


SS$_RESIGNAL 
SIDE EFFECTS: 

None 
” BEGIN 


BIND 
SIGNALLED_CONDITION = SIG CCHFSL_SIG_NAME] : BLOCK C, BYTE]; 
sect ta -SIGNALLED_CONDITION CSTSS$V_SEVERITY] OF 


CSTS$K_WARNING): 
IF TERMINATION STATUS EQL STS$K_SUCCESS 
t 


ia warning changes the termination status only if it was 
"success previously. 
TERMINATION_STATUS = STS$K_WARNING; 


CSTS$K_ERROR]: 
IF TERMINATION. STATUS LSS STS$K_ERROR 


ss 


‘ch X Command Line rycerqece 16- -3e0-1984 94: ):1¢ AX-11 Bliss-32 V4.0-7 Page (4 


" re : 
C 10N_A - N program condition ha -Sep-1 RUNOFF. SRC NDKYMS 8322 ) vO 
77) 1 ee, 
3 13 i | : An error status changes the ea baa ea status only if it 
; 13 5 ! f was ‘success’ or ‘warning’ previously. 
; i ; f3 TERMINATION_STATUS = STSSK_ERROR; 
: 11 3 1859 CSTSS$K_SEVERE): ' Severe error 
; 1169 } 4 TERMINATION STATUS = STSSK SEVERE; ! set the termination status 
; 1168 1580 COTHERWISE): ' Success or Informational 
; 116 1581 3 ! Do nothing 
; 118e 1 ¢ 
>; 1165 1 TES; 
169 1388 RETURN SS$_RESIGNAL ! Conti diti 
; : : t s 
Nes a Ah J ontinue processing condition 


0004 00000 stenting | ~yeag HO 


S RA? 3 1515 
52 00000000' fr 9E 00002 MOV TERMINATION. STATUS, R2 3 
50 04 AC 4 C1 00009 ADDL3 #4, SIG + 1554 
07 60 93 0000E BITS (RO), #? : 1559 
09 12 00011 BNEQ 1$ F 
01 62 01 00013 CMPL §_TERMINATION_STATUS, #1 + 1560 
1F 12 00016 BNEQ : 
62 04 0001 CLRL §_ TERMINATION_STATUS + 1566 
1B 11 QOO1A BRB : 1560 
02 60 03 00 ED 0001¢ 1$: CMPZV #0, #3, (RO), #2 : 1568 
OA 1 0021 BNEQ 3 
02 62 D1 00023 CMPL TERMINATION_STATUS, #2 3; 1569 
OF 18 000 6 BGEO ; 
62 02 0d0 000 MOVL #2, poagitige be 3 1575 
OA 11 00028 BRB : 1569 
04 60 03 09 ED 00 D 2$: CMPZV #0, #3, (RO), : 1577 
$¢ 04 00 099 MOVL #4 os STATUS : 1578 
0918 8F 3C 00037 3$: MOVZWL #2328 : 1585 
04 0003¢ RET : 1586 


; Routine Size: 61 bytes, Routine Base: S$CODE$ + 02C9 


° 
. 
° 
. 
o 
. 
o 
7 
a 
7 
o 
. 
. 
. 
. 
. 
° 
> 
° 
. 
° 
. 
a 
. 
o 
. 
. 
. 
o 
° 
7 
. 
~ 
. 
o 
. 
e 
. 
. 
. 
o 
. 
o 
* 
. 
7 
o 
. 
° 
. 
o 
© 
. 
7 
e 
. 
e 
> 
° 
. 
° 
+ 
e 
7 
o 
. 
” 
. 
° 
. 
a 
* 
@ 
a 
° 
. 
o 
. 
° 
2 
° 
. 
o 
. 
e 
2 
e 
. 
2 
. 
oe 
o 
e 
o 
e 
. 
° 
= 
eo 
. 
a 
o 
a 
7 
cm 
. 
£ 
° 
e 
. 
ao 


MEUM OS OONAUWES WN OOONAUN EWR OO OONOUS WN OO 


ce a ed ed ee we ee ce ee a a a a a a a ca a ec ca ec a ee ce a cc ee ee ee ee ee ee ed ed 
tht f —thet terh—f pe Pee Py ct ter each thar aed ache PP ia PP i 


POPIPOPOPONODINONOPONOPINPOPUNININININININIPONINIDD 2 2 3 2 9 9 


Be Be Se Se Se Ge Be Se Se Se Se Se Ge Fe Se Fs Fe Ge Ge Se Ge Ge Ge Ge Ge Ge Sse Se Se Se Ge Ge Ge Se Se Se Ge Ge Se Se Se Se Se FF Ss FH Ss Se FH Ss SS SF Os Se Se 


FUN“ OVOOVNOUSWN -O0en 


ROMONOPUR) 3 


oz 
ro 

= 
“mn 


wv 


15 
x == DSRINDEX/INDEX Command Line sneer ose 1b-Sep 
LL_TPARSE == Invoke TPARSE to process qual 14*Sep 
ces 
RIP 


ZSBITL "CALL_TPARSE == Invoke TPARSE to pce 
ROUTINE CALLITPARSE (STRING : REF $STR_DES 


“1382 $4:G5318 © YaMNo ee Oke Snbevie 354 Page 43 


$ gue} 'tiee values’ 
TO 


C (), STATE_TAB, KEY_TAB) = 


FUNCTIONAL DESCRIPTION: 
This routine calls TPARSE to parse the given string with 


the given state and key tables. 
FORMAL PARAMETERS: 
STRING - Address of a 


ng descriptor of string to parse 


State tables 


stri 
STATE. TAB = Address of TPARSE 
KEY_T ARSE key tables 


4 

' 

' 

' 
-1AB == Address of TP 
i IMPLICIT INPUTS: 

None. 

i IMPLICIT OUTPUTS: 
None. 

] 

i 
i. 


ROUTINE VALUE: 
COMPLETION CODES: 


Returns completion code of LIBSTPARSE 
SIDE EFFECTS: 
None. 


BEGIN 


LOCAL 
TPARSE_BLOCK : BLOCK CTPASK_LENGTHO, BYTE]; 


' 
Initialize the TPARSE parameter block 


TPARSE_BLOCK CTPASL_COUNT) TPASK_COUNTO; 


TPARSE-BLOCK CTPASL-OPTIONS TPASM~ ABBREV 
TPARSE-BLOCK CTPASL~STRINGCN ; .STRING CSTRSH_LENGTHI: 
TPARSE-BLOCK CTPASL~STRINGPT STRING CSTRSA-POINTER); 


T 
R 
TPARSE BLOCK TPASL“TOKENCNT 
TPARSE BLOCK CTPASL~TOKENPTR 

_ TPASL NUMBER] 
TPARSE-BLOCK CTPASL—~PARAM) 


: 


Parse the string and return parse status 


a ce ee ce ce ee ce ed cee ee ee ee ce ee em ee a ee ee a ee ce ee ee ae OD ee ce ee ce ce ee ce ce ee ee ee eed ed ed 


=P IPIPIPIPIPIPIMIPINPYINIPIPININPIPIAIP IIIA a ad st a nt kt kk kk a a td a ht tt 


RETURN LIBSTPARSE (TPARSE_BLOCK, .STATE_TAB, .KEY_TAB); 


ma 
v0 


5 


D1 
NDXVMS == DSRINDEX/INDEX Command Line interf -Sep-19 


Vvo4~000 


0000 00000 CALL_TPARSE: 


WOR 
5E C2 SUBL 
D PUSHL 
046 =A Dd MOVL 
5 04 =A RP 0 MOVL 
08 AE 6 5 OOOF MOVZWL 
OC AE 04 =A 0013 OVL 
10 AE 7 8 18 CLRQ 
1¢ =6AE O7C 18 CLRQ 
7E 08 AC 7D 0001 Ova 
08 AE 9F 000 PUSHAB 
000000006 00 03 FB 838 CALLS 
04 0002C RET 


; Routine Size: 45 bytes, Routine Base: SCODE$ + 0306 


CALL_TPARSE == Invoke PARSE to process qualifi 12-88 my 1984 93: Fi AA NORF Ske inbaving O35 


RUNOFF . SRC NDXVMS -B32; 


t qgenrns 


bine Ro- BLOCK+4 


“Franse BLOCK+8 
} TPARSE BLOCK +12 


Page 44 
. (4) 


atadead atadad <2 
Sooo ooo Uw 
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} 
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ss 


PERE EEPWWW 


WN OOONAUS WN O OBNAUE WN OOONAULSWN "OOOO 


MMM norofrorofpororony 


AACS 


a ee ee eB ee ee ee me ee ee 8 Dd ed ed ad ed ed ed 
ay 


ROPOPENINPINININININIPOPYPYPPoPoPyofnonyd 


Aan 
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00000000G_ EF 


3; Routine Size: 


MS == 
R_PAGE 


v 


DEDEDE III kk i i i hd 


DSRINDEX/ INDEX founené Line interface 18-S00-1984 94 hS31¢ 


=- Action routine = enter value for 14-Sep-1 


FUNCTIONAL DESCRIPTION: 


This routine is called as an action routine by TPARSE. 


It save the parameter value passed by TPARSE 
FORMAL PARAMETERS: 


AX-11 Bliss-32 V4.0-74 
RUNOFF ..SRC JNDXVMS .B32; 


ZSBTTL "ENTER_PAGE == Action routine = enter value for /PAGE_NUMBERS' 
ROUTINE ENTER-PAGE = 


AP CTPASL_PARAM] = TRUE if STANDARD page numbers, FALSE otherwise 


IMPLICIT INPUTS: 
None 
IMPLICIT OUTPUTS: 


CMDBLK CNDX$V_STANDARD_PAGE] - is set to parameter value 


ROUTINE VALUE: 
COMPLETION CODES: 


Tenet 
SIDE EFFECTS: 
None 


BEGIN 
BUILTIN 
AP; 


MAP 
AP : REF BLOCK C, BYTE); 


CMDBLK CNDX$V_STANDARD_PAGE] = .AP CTPASL_PARAM]; 
RETURN TRUE; 


0000 00000 CUTER PAGE : 


«WOR 
01 9 20 AC FO O00e INSY 
0 01 »? it MOVL 

4 0000F RET 


16 bytes, 


Routine Base: S$CODE$ + 0333 


ave nothin 
2(AP), #5, 
RO 


on, CMDBLK 


sz 
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NDXVMS == DSRINDEX/INDEX Command Line interface 18-50 1984 01:14:1 AX-11 Bliss-32 V4.0-74 @ 47 
OPEN_ERROR ~ Handle me Open Errors : 1 =300 71382 93303518 RUNOFF «SRC NDAVMS 83044 ee (6) 


ZSBITL ‘OPEN_ERROR = Handle File Gpen Errors' 
GLOBAL ROUTINA OPEN_ERROR (FUNCTION CODE, PRIMARY_CODE, SECONDARY_CODE, I0B : REF $XPO_IOB ()) = 


16 3 


i ROUTINE VALUE: 
i COMPLETION CODES: 


Returns the value of PRIMARY_CODE if success is indicated. 
i SIDE EFFECTS: 


Signals a fatal error terminating program execution if failure 
is indicated by PRIMARY_CODE. 


6 ! 
24 FUNCTIONAL DESCRIPTION: 
24 This routine is called as an Action Routine to report file open errors 
69 i FORMAL PARAMETERS: 
69 FUNCTION_CODE = XPORT failure action routine function code 
$3 PRIMARY CODE - primary failure completion code 
9 SECONDARY_CODE = secondary failure completion code 
$8 108 - Address of file 108 
i IMPLICIT INPUTS: 
None 
None 
1 
1 


' 
i 
' 
' 
' 
' 
' 
' 
' 
1 
‘ 
' 
! 
{ IMPLICIT OUTPUTS: 
i] 
' 
' 
i 
o) 
' 
' 
] 
' 
i] 
1 
' 


BEGIN 
FILE SPEC = .10B CIOBSA_FILE SPEC] : $STR_DESCRIPTOR (), 
RESULTANT = "10B CIOBST-RESUCTANT) : $STRTDESCRIPTOR (): 
LOCAL 
FILE_NAME : REF SSTR_DESCRIPTOR (); 


] 
Point to best file name 


FILE_NAME = (IF RESULTANT CSTRSH_LENGTH] NEQ 0 
THEN RESULTANT 
ELSE FILE_SPEC); 
IF NOT .PRIMARY_CODE 
THEN 
BEGIN 
: File was not opened 


P SUSAN OPN: > > > mh - Soooooooo 


INIA LPP NONUNPNPUPIPUIDD 9 a a tt 
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NDXVM NDXVMS == DSRINDEX/INDEX Command Line interface 16-Sep-1984 01:14:1 AX-11 Bliss-32 V4.0-74 
Vo0~000 OPEN_ERROR = Handle File Open Errors 132800-1 38s 93505:18 RUNOFF SRE NDAVMS -632 Pog (6 


RETURN .PRIMARY_CODE; 
END; 
00 Pt RROR, Save nothing ; 


=3 


31 8 1743 IF .108 CIOB$V_INPUTJ ; 
3 7 1744 THEN 3 
: 1330 1745 SIGNAL_STOP CINDEX$ OPENIN, 1, sf ILE MAME ; 
| 1746 — .108 CTOBSG_COmP.CODE],~1, .f08 C108$G_2ND_CODEJ) : 
.4 § 1768 SIGNAL _STOP CINDEX$ OPENOUT, 1 sFILE NAME ; 
; 4 12749 .108 CYOB$G_comp_CodeJ, T, .168 C10B8$G_2ND_CODE)); : 
: 1336 1751 END; : 
: 1337 1788 3 
: 1338 175 : 
: 1339 1754 : 
00 00000 OPEN_E : 1687 ; 

50 10 ac dO 90002 OVL 198 RO : 1783 ; 

1¢ =A 83 9006 TSTW 8(RO) : 1732 ; 

06 13 0000 BEQL ~=sésé1S : ; 

51 1¢ AO 9 00008 MOVAB 28(RO), FILE_NAME : : 

04 11 OO00F BRB 2$ : : 

51 04 AO dO 00011 1$: MOVL 4(RO), FILE_NAME : ; 

35 08 AC €E8 00015 2$: BLBS § PRIMARY_CODE, 5$ : 1736 F 

16 2E Ad €9 00019 BLBC 46(RO), 3$ + 1743 F 

00D€ CO DD 0001D PUSHL  220(ROS + 1746 ; 

01 0D 00021 PUSHL #1 + 1745 ; 

00D8 £0 DD 00023 PUSHL  216(RO) + 1746 : 

1 DD 00027 PUSHL FILE_NAME : 1745 ; 

01 DD 00029 PUSHL #1 : ; 

000000006 8F ODD 900 B PUSHL #DSRINDEX$_OPENIN : ; 

14 11 00031 BRB 4$ : 3 

00Dc CO DdD 000 ; 3$: PUSHL  220(RO) : 1749 : 

61 DD 000 PUSHL #1 : 1748 ; 

0008 CO DD 00039 PUSHL  216(RO) + 1749 : 

51 DD 0003D PUSHL FILE_NAME : 1748 ; 

1 0D 0003F PUSHL #1 : F 

000000006 8F DD 00041 PUSHL #DSRINDEX$_OPENOUT : : 

000000006 00 6 FB 00047 4$ CALLS #6, LIBSSTOP : : 

50 08 AC dO O04 5$ MOVL § PRIMARY_COVE, RO : 1753 ; 

04 0005 RET : 1754 ; 


; Routine Size: 83 bytes, Routine Base: S$CODE$S + 0343 
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16: AX-11 Blisg<32 V4.0-742 
SRC INDXVMS B32; 
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az 


ZIF DSRPLUS 
é XTHEN 
ROUTINE ENTER_LAYOUT = 
i 


i FUNCTIONAL DESCRIPTION: 


WNAWIAWNN 
wooo 
BRAN 


RAWLS SRLS 


This routine is called as an action routine by TPARSE. 


It stores the parameter passed by TPARSE in the command 
Line laterast ton block. . . 


i FORMAL PARAMETERS: 


oO 
wu 
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XVM NDXVMS == DSRINDEX/INDEX Command Line interface 1b-Se -1984 14:1 AX-11 Bliss-32 V4.0-74 
VO4~000 OPEN_ERROR = Handle File Open crrere” 12=808-} 382 Oh: N5:18 RUNOFF .SRCINDXVMS .B32; — (BS 
ZSBITL "ENTER_LAYOUT == Action routine = save value of /LAYOUT qualifier’ 


AP CTPASL_PARAM] - Layout value 


Dek ee ee 


Se 


1 

1 

' 

! 

‘ 

0 

1 

1 

' 

} IMPLICIT INPUTS: 
None 

IMPLICIT OUTPUTS: 

CMDBLK CNDX$H_LAYOUT] - Value is stored here 

i 
i) 
1 
4 
i] 
1 
1 
i] 
' 
| 


i ROUTINE VALUE: 
COMPLETION CODES: 


TRUE 
i SIDE EFFECTS: 
i None 


IWWIWWIWNIPIMINVINPININIPIPININ 2 2 PO PO OS SH OOO 


WN SO OONAUES WN SO OSNAUE WN $9 ODNAUS WN OOONOUES WOO 


BEGIN 
BUILTIN 
A . 


‘Co Od Cd Co Cd Cd CS Cd CD 
= FRET FFU 


MAP 
AP : REF BLOCK C, BYTE); 


CMDBLK CNDXSH_LAYOUT] = .AP CTPASL_PARAM]; 
a TRUE; 
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ERROR = Handle File Open Errors 


RUNOFF .SRCIJNDXVMS .B32; 


IF DSRPLUS 
THEN 


ZSBTTL "ENTER_FORMAT == Action routine = save value of /FORMAT qualifier’ 
ROUTINE ENTER FORMAT = 


: FUNCTIONAL DESCRIPTION: 
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This routine is called as an action routine by TPARSE. 


It stores the parameter passed by TPARSE in the command Line 
information block. 


If the format is TMS=E, it sets up the correct character size 
vector in CHRSIZ. 


If the format is TEX=filename, it copies filename to TEX_FILE_NAME 
FORMAL PARAMETERS: 


AP CTPASL_PARAM] - Format type value 

AP LTPASL_STRINGCNT] - Length of filename for TEX=filename 

AP CTPASL_STRINGPTRI - Pointer to filename for TEX=filename 
IMPLICIT INPUTS: 

CHRSZE - Address of TMS 'E* character size vector 


IMPLICIT OUTPUTS: 

CMDBLK CNDXSH_FORMAT] = Value stored here ‘ 

CHRSI2 - Points to TMS ‘E' character size vector 
for TMS=E, points to TEX character size 
vector for TEX=filename. 

TEX_F ILE_NAME - String descriptor of TEX filename. 


ROUTINE VALUE: 
COMPLETION CODES: 


TRUE 
SIDE EFFECTS: 
None 
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part 


BEGIN 
BUILTIN 
AP; 


Pp 
AP : REF BLOCK C, BYTE); 

CMDBLK CNDXSH_FORMAT] = .AP CTPASL_PARAM); 

SELECTONE .CMDBLK CNDXS$H_FORMAT) OF 
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ERROR = Hendle File Open Errors 4-Sep-19 7:1 RUNOFF .SRCJNDXVMS .832; 
SET 
CTMS11_E€): 
CHREIZ = = CHRSZE; ! TMS 'E’ character set 
CTEX]: 
BEGIN 
CHRSIZ = TEX_CHAR_SIZES; ! TEX character sizes 


$STR_COPY (TARGET = TEX FILE IN 
STRING = (.AP CTPASC T STRINGCNTI, -AP CTPASL_STRINGPTR])); 


END; 
COTHERWISE): ! Do nothing for DSR or TMS=A 


TES; 
RETURN TRUE; 
END; 
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OPEN_ERROR = Handle File Open Errors -Sep-1 RUNOFF .SRC JNDXVMS.B 


es 
5 


) Fire DSRPLUS 


Po 


ZSBTTL ‘OPTIONS fit LE -- preres® options file’ 
= 


$XPO-OPEN (108 = OPTIOB at: SPEC = CHDBLK CNDX$T_INPUT_FILE], 
DEFAULT = '.OPT', FAILURE = OPEN_ERROR); 


states "pea (10B = OPTIOB) EQL XPOS_NORMAL DO 


S333 


Res 


OOe 


SENN NOAA 


SAN NN 


: Strip comments from input Line 
PTR = CHSFIND_CH (.OPTIOB CIOBSH_STRING], CHSPTR (.OPTIOB CIOBSA_STRING]), %C°!") 


CONIA UNS WIP 


IN 


: 1623 L 

3 1626 U 1 

: 1882 Y S038 | 

: 16 $ U g 1 ROUTINE OPTIONS-FILE : NOVALU 
: 18 Y ii” 

; 16 ; 33 FUNCTIONAL DESCRIPTION: 

; 12 § ¥ ‘3 ! Parse Lines of an options file 
; 16 4 ; ‘§ FORMAL PARAMETERS: 

te fea i 

: 1638 y by } | IMPLICIT INPUTS: 

> 1640 U 2049 1! CMDBLX CNDX$T_INPUT_FILE] - = Options file nam 
; Hb oh : B29 : NDXOPTION Address of ations file parse tables 
i 1648 u O8¢ IMPLICIT OUTPUTS: 

; 1202 : 084 ! CMDBLK CNDX$T_INPUT_FILE] - Input file name 
> 1647 U 096 1 | ROUTINE VALUE: 

> 1648 U 2057 1 | COMPLETION CODES: 

> 1649 u 2058 1} 

: 1839 Uso i see 

; 1658 U 06 1 | SIDE EFFECTS: 

: 165 U 6¢ ii 

: 1654 U 2063 1! None 

> 1655 U 2064 1! 

> 1656 U 0 § ji- 

> 1657 U 2066 1 

: 1658 U 2067 1 BEGIN 

a cen 

; 1661 u 0 OPTIOB : $XPO_10B (); 
: 1668 u $XPO_108 INIT (10B = OPTIOB 
+1 U 1 

:1 U 1 

:1 U 1 

3 1 U 1 

.y U 1 

3 1 U 1 

.-5 U ; 

a | U 1 

3 1 U 1 

:1 U 1 

:1 U 1 

:1 U 1 

: 1 U 1 

3: 1 U 1 

= U 1 
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ERROR = Handle File Open Errors 14-Sep- RUNOFF .SRCJNDXVMS .B32; 
IF NOT CHSFAIL (.PTR) 
THEN | 
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Remove '!" and everything after it 


ELS LEN = CHSDIFF (.PTR, CHSPTR (.OPTIOB CIOBSA_STRING])) 
LEN = .OPTIOB CIOBSH_STRING); 


uw 


' 
Remove trailing whitespace 


PTR = CHSPLUS (CHSPTR (.OPTIOB CIOBSA_STRING]), .LEN = 1); 
DECR I FROM .LEN - 1 TO 0 DO 
BEGIN 


CH = CHSRCHAR (.PTR); 
PTR = CHSPLUS (.PTR, -1); 


IF (.CH NEQ 2C° *) AND (.CH NEQ TAB) 
EXITLOOP; 


LEN = .I; 
END; 


LEN GTR O 
BEGIN 
We have something to parse 


$STR_COPY (TARGET = OPTIONS STR 
STRING = $STR_CONCAT (‘OPTIONS ', (.LEN, .OPTIOB CIOBS$A_STRING]))); 


cae CLISDCL_PARSE (OPTIONS_STR, NDXOPTION) 
' 


DOOODOOOOOOWC 
WONOUSWN—OO®W 


IF 
THEN 


Error parsing input Line 
SIGNAL_STOP CINDEXS_SYNTAX, 1, OPTIOB CIOBST_STRING]); 


ry 
Get input file name 
CLISGET_VALUE (ZASCID “INPUT', CMDBLK CNDX$T_INPUT_FILE]); 
Fe Ott Te (ZASCID' INPUT", VALUE_STR) 
' 


RMUNVNNNINS SH SoS ee aessssessss 


=—OOONOVUSWUD OO OONOAULS WN (OO -VWOurwn— 


More than one input file specified. 


SIGNAL (INDEX$_IGNORED, 1 VALUE STR, INDE 
INDEX$-TEXT, 1, OPTIOB CTOBST_STRI 


IN.AIWNIPOND 


Pvt 


X$_NOLIST, 0, 
NG)); 
1 


i Process /BOOK_IDENTIFIER 
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PARSE _BOOK 0; 


Ptw 


WN" ODONAMEWN—O0O-~) 


! 

} Finally. process the input file 

NDXINP (); 

— CNDX$V_INPUT_CONCAT] = TRUE; ! Next file concatenated to this one 


END; 
$XPO_CLOSE (10B = OPTIOB); 
END; 
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VMS_ == DSRINDEX/ INDEX 
N_ERROR = Handle File 


ZIF_OSRPLUS 
THEN 


Page 435 


ZSBITL "PARSE_BOOK == Parse /BOOK_IDENTIFIER qualifier’ 
ROUTINE PARSE_BOOK : NOVALUE = 
FUNCTIONAL DESCRIPTION: 
This routine is called to process the /BOOK_IDENTIFIER qualifier 
FORMAL PARAMETERS: 
None 
! IMPLICIT INPUTS: 
CMDBLK = Command Line information block 
IMPLICIT OUTPUTS: 
CMDBLK CNDX$T_MASTER_BOOK] - Set to book name if doing a master index 


ROUTINE VALUE: 
COMPLETION CODES: 


Sn pe i i te i Bin i i i Bn i | 
het PRN RP NE SE A 


OWONAUE WO OONOUS WN OVONOUES WR 


WNAMVES WN OS OONAULS WN OO OONAV EWN OOWONA NEW 


ee ee ae ee ce a ee ce a ce a ce ee ae ee ae ce a a ea ce ee a a ce cc ee ce a ee ed a ee ee ee ee ed 
eececcececcecececececececccececeeceececeeececececeececececeecececeeceeccer 
wtuiwiatetatuwiababuaiabmiabmimabeiabwMabaimimwiabmataabaiababab abated aba aD aba aad acR acted anal aalalieniands 


None 
78 SIDE EFFECTS: 
78 
78 None 
78 
78 om 
78 
78 BEGIN 
790 
791 IF .CMDBLK CNDX$V_MASTER] 
P35 THEN 
79 1 BEGIN 
794 ; ! 
795 ! Doing a master index 
199 $08 
798 $ IF CLISPRESENT (%ASCID*BOOK_IDENTIFIER') 
799 THEN 
800 8 ' 
rt H User specified a book name 
80 1 CLISGET_VALUE (ZASCID*BOOK IDENTIFIER’, CMDBLK CNDX$T_MASTER_BOOK]) 
Bes esis 
80 5 i a? a master index and no book identifier specified. 
8 § } Use input file name. 
10 g LOCAL 
811 PARSE_SPEC_BLOCK : $XPO_SPEC_BLOCK; 
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Open Errors 19-808-1 382 OF: b5:18 RUNOFF . SRCINDXVMS._B32; 
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MS_ == DSRINDEX/ INDEX 
ERROR = Handle File 


IF SXPO_PARSE_SPEC (FILE 
SPEC_BLOCK = PAR 
THEN | 
; Filename parse succeeded. Use filename as book name. 
$STR_COPY (STRING = tae SPEC BLOCK CXPOST_FILE_NAME], 
TARGET = CMDBLK CNOX$T_MASTER_BOOK)) 
ELSE | 
| Filename parse failed. Use NULL book name. 
$STR_COPY (STRING = '", TARGET = CMDBLK CNDX$T_MASTER_BOOK)); 


SPEC = CMDBLK CNDX$T it | Cel 
SE_SPEC_BLOCK, FAILURE = 0) 


109 CD C9. C0 C9. C9 CD 0D 0000 


END; 
END 
ELSE | 


; Not doing a master index 


IW WATOPOPUPOPUNOPUNU PUR) 3 9 


IF_ CLISPRESENT (ZASCID*BOOK_IDENTIFIER") 
SIGNAL CINDEX$_IGNORED, 1, Z%ASCID'BOOK_IDENTIFIER', INDEXS$_CONF QUAL); 


C2 Co C9 C9 CD Co: 
WAG 


END; 
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C 
Open Errors 14-Sep- RUNOFF .SRCINDXVMS.B32; 


NDXV 
OPEN 
3 3 ¢ L 2249 1 SIF DOSRPLUS 
3 ! tz ! ZTHEN 
> 1845 U 1 ZSBTTL "PROCESS_TEX_FILE = Process TEX character size file’ 
; 3 8 U 1 ROUTINE PROCESS_TEX_FILE : NOVALUE = 
3 7 U 4 1 !44 
3 } rk U > 
3 } 28 : § ! FUNCTIONAL DESCRIPTION: 
s 192) 28 ! This routine is called to process the TEX character size file. 
; 1858 U 99 1 ! FORMAL PARAMETERS: 
; 1854 U me S 
3; 1855 U 6 1! None 
3 1828 U 22635 1! 
3 132t 4 rt: ! } IMPLICIT INPUTS: 
: + $4 66 ! TEX_FILE_NAME = String descriptor of TEX character size file name 
; 1861 U ef 1 ! IMPLICIT OUTPUTS: 
3 1806 U 2269 1! 
; 186 U 2270 1! TEX_FILE_NAME = Replaced with best file name during file processing. 
3 1864 U 2271 1! TEX_CHAR_INDEX = Initialized to zero 
; 1865 U ie 1! _CHAR_SIZES = Initialized to zero 
> 1866 U 2273 1! TEX_FILE_LINE_NO=- Initialized to one 
3: 1867 U 2274 1! 
3: 1868 U $f 1 ! ROUTINE VALUE: 
3; 1869 U 6 1 ! COMPLETION CODES: 
: 1870 U 2277 1! 
: 1871 U $f8 1! None 
3 1Sr6 U 2279 1! 
: 187 U 2280 1 ! SIDE EFFECTS: 
3 1874 U $3) 1! 
3: 1875 U o¢ 1! None 
3; 1876 U 2283 1 !-- 
3; 1877 U 2284 1 BEGIN 
3; 1878 U 2285 1 TEX_FILE_LINE_NO = 1; 
3: 1879 U $36 1 
: 1880 U 2287 1 TEX_CHAR_INDEX = 0; 
> 1881 U 2288 1 INCR I FROM 0 TO 255 DO TEX_CHAR_SIZES C.1] =0; 
3 13e6 U 2289 1 
3; 188 U 2290 1 ! 
3 \eee 3 4 : Set filename and open the file 
3; 1886 U 2293 1 TEX_FAB CFABSB_FNS) = .TEX_FILE_NAME CSTRSH_LENGTH); 
> 1887 y 394 1 TEX-FAB CFABSL-FNA] = .TEX FILENAME CSTRSA~POINTER); 
3 1338 Y 3 | SOPEN (FAB = TEX_FAB); 
: 1890 U 2297 1 ' Get the best file name 
3 199) U 38 1 ! 
3 1 4 U 1 IF .TEX_NAM CNAM$B_RSLJ NEQ 0 
: 189 U 2500 1 THEN . ! Use resultant name 
3 1938 U ns SSTR_COPY (TARGET = TEX_FILE_NAME 
> 1895 U é 1 STRING = (.TEX_NAM CNAMSB_RSLJ, .TEX_NAM CNAMSL_RSA)) 
: 1996 U 1 ELSE T No resultant name 
: 133 U 4 1 BEGIN 
; 1898 U 5 4 


H 16 
-- x d Line interface 16-Sep-1984 01:14:1 AX-11 Bliss-32 V4.0-74 Page 61. 
OPEN ERROR = Hondte rite oy Ba F 12-80-1382 93303518 RUNOFF .SRC JNDXVMS .B32; (14) | 


: 1899 U $ 1 IF_.TEX_NAM CNAMSB_ESL] NEQ 0 
: 190% U } = SSTR_COPY (TARGET = TEX_FILE_NAME eeenaeemee coe: 
; 190¢ J $ 1 STRING = (.TEX_NAM CNAMSB_ESLJ, .TEX_NAM CNAMSL_ESAJ)); 
1904 4 $31) 4 END; 
e 1 1 e ' 
; 1908 , ig 1 IF NOT .TEX_FAB CFABSL_STSJ 
: 1808 0 is : THEN GHAL STOP ( NoEXS OPENIN, 1, TEX_FILE anes” eee 
: 1809 fr 6 .TEX_FAB CFABSL-STSJ, .TEX_FAB-LFABSL_STVJ); 
: 1319 y \8 ; IF NOT SCONNECT (RAB = TEX_RAB) eee POLS streum 
191 U i“. 
: NAL_STOP (INDEX$_OPENIN, 1, TEX_FILE_NAME 
: 1918 y ? i alg “TEX. RAB CRABSL_STSJ, .TEX_RAB CRABSL_STVJ); 
; 1318 U g i $cET (RAB = TEX RAB): oroR ee ! Get first Line in file 
= 
: 1316 y 325 pots STRING = (.TEX_RAB [RABSW_RSZ1. TEX_RAB CRABSL_RBFJ)); 
: 9 U 
; 1320 U 2327 1 IF_.TEX_RAB CRABSL_STSJ 
; 1984 U 2328 4 THE 
: 19 : U 2329 1 BEGIN 
: 192 U 33 0 1 ' 
: 1924 U $3 : } Process TEX character size file 
: 1958 J $339 1 IF RMS$_EOF NEQ CALL_TPARSE (TEX_LINE, TEX_FILE_STATE, TEX_FILE_KEY) 
HEN 
: 1358 y $33¢ i Lam SIGNAL_STOP (INDEX$_TEXFILE, 2, .TEX_FILE_LINE_NO, TEX_FILE_NAME, 
; 1989 U 3336 1 INDEX$_SYNTAX, T, TEX_LINES; 
: 1984 U tt i END; “ 
> 193 U 2339 1 : 
: 1938 U $340 i 1H " tanec tise a ! Not enough values oypel ted 
+ 1935 U 3348 1 SIGNAL (INDEX$_TEXFILE, 2, .TEX_FILE_LINE_NO, TEX_FILE_NAME, INDEX$_TOOFEW); 
: 19 U 2343 1 
: 1387 u ss SCLOSE (FAB = TEX_FAB); 
: 1939 U 2346 1 ? 
+ 1940 2347 «1 «MFI 
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NOXVMS NDXVMS_ == DSRINDEX/INDEX Command Line interface 1b-Sep-19 4 O1 AS 1g AX-11 Bliss-32 V4.0-742 
v04-000 OPEN_ERROR = Handle File Open Errors 14-Sep-1984 13:07:1 RUNOFF .SRCJNDXVMS .B832; 1 
H 1308 L rk 1 ZIF_ DSRPLUS 
; 1307 y $3 ! ZTHEN 
; 1945 U : 1 ZSBTTL_"STORE_TEX = Action routine = Store TEX character size’ 
H 1206 U 1 ROUTINE STORE_TEX = 
: 194 U 1 !+¢ 
; 1948 U 4 1! 
; 1388 5 ! : FUNCTIONAL DESCRIPTION: 
; 1951 U 3 1! This routine is called as an action routine by LIBSTPARSE to 
; 1326 U 8 1} store a TEX character size. 
3 132 U 2359 1! 
; 1954 U 2360 1 ! FORMAL PARAMETERS: 
; 1955 U 2361 1! 
; 1956 U 66 1 ! AP CTPASL_NUMBER] - Value to be stored 
: 1957 U 2365 1! 
3; 1958 U 2364 1 ! IMPLICIT INPUTS: 
; 1959 U 2365 1! 
; 1960 U +] 1 } TEX_CHAR_INDEX - Index into TEX_CHAR_SIZES where next value 
: 1961 U 2367 1! s to be stored 
; 1306 U 2368 1! 
; 196 U $92 1 ! IMPLICIT OUTPUTS: 
3 1964 U 2370 1! 
3 1965 U 2371 1! TEX_CHAR_SIZES C.TEX_CHAR_INDEXJ=- Contains value 
; 1966 U 376 es TEX_CHAR_ INDEX - Is incremerited 
3 1967 U $34 1! 
3: 1968 U 2374 1 ! ROUTINE VALUE: 
3: 1969 U 2375 1 ! COMPLETION CODES: 
; 1970 U 2376 1! 
; 1971 U 2377 1! TRUE 
; 1306 U 2378 1! 
3; 197 U 2379 1°! SIDE EFFECTS: 
3 1974 U 2380 1! 
3; 1975 U 2381 1! Signals a fatal error if TEX_CHAR_INDEX exceeds 255 
3; 1976 U 388 1 !<- 
3 1977 U 23835 1 BEGIN 
; 1978 U 2384 1 
3 1979 U 2385 1 BUILTIN 
; 1980 U 2386 1 AP; 
; 1981 U 2387 1 
; 1386 U 2388 1 P 
3; 198 U 2389 1 AP : REF BLOCK C, BYTE); 
> 1984 U 2390 1 
: 1302 Y 33) ! Ul «TEX_CHAR_INDEX ECL 256 
; 1987 7 398 ! SIGNAL_STOP (CINDEXS_TEXFILE, 2, .TEX_FILE_LINE_NO, TEX_FILE_NAME, INDEX$_TOOMANY); 
; 1989 U 2395 1 TEX_CHAR_SIZES C.TEX CHAR_INDEX] = .AP CTPASL_NUMBERI; 
; 1990 U 36 1 TEX” CHAR_INDEX = .TER_CHAR_INDEX + 1; 
; 1991 U 2397 1 RETORN TRUE; 
; 1338 U 2398 1 H 
3; 199 U 2399 1 
3 1994 400 1 ZF] 


rom" SF 


NDXVM NOXVMS <= Eee X Command hay interface 14-46 -1984 AX-11 Bliss-32 v4.0 Pa 3 
- OPEN_ERROR = Handle File Open Erro 12-Sep-1984 Oh: 45 aT: RUNOFF .SRC NDAVIS B3ee ge 485 

3 3 L 24 1 ZIF OSRPLUS 

i bee Be 

3 1398 U 2404 1 ZSBITL "READ_TEX -= Action routine = Read a record from TEX char size file’ 
; 2000 U 2405 1 ROUTINE READ_TEX = 

; 2001 U 24 $ 1 !e4 

: 200 U 24 zm 

; 200 U 2408 1 ! FUNCTIONAL DESCRIPTION: 

; 2004 U 2409 1! 

3 006 : ret 1 } This routine is called as an action routine by TPARSE. 
: 200 U 241 1! It reads a Line from the input file. 

: 5008 U Saig fi : 

3; 2009 U 2414 1 ! FORMAL PARAMETERS: 

; 2010 U 24615 1! 

3; 2011 U 218 1! None 

3 ole U 241 3 

3; 201 U 218 1 ! IMPLICIT INPUTS: 
i 3 sole U 241 1! 

; 2015 U 2620 1! TEX_RAB - RMS RAB to read 

3 Big U 2421 1! 

3; 201 U 24 $ 1 ! IMPLICIT OUTPUTS: 

3; 2018 U 24 1! 

3; 2019 U 2424 1! TEX_IN_BUF - Contains text of new Line 

3; 2020 U 2425 1! - Is a string descriptor of new Line 
3 $053 U 2426 1! TeX. FILE - Is incremented 

: 2022 U 2427 1! TPASC STRINGCNT) - Is length of new Line 

3 $07 : se 3 : ap TPASL_STRINGPTR) - Points to new Line 

: 095 U 6$6 1 ! ROUTINE VALUE: 

3 2026 U 2431 1 ! COMPLETION CODES: 

3; 2027 U $36 1! 

3; 2028 U 2433 1! Returns TRUE if successful 

: 2029 U 24634 1! Returns RMS$_EOF if end of file encountered 

3; 2030 U 2435 1! Returns FALSE otherwise 

3; 2031 U $38 1! 

3 $oas U 246 1 ! SIDE EFFECTS: 

; Oe? U 2438 1! 

; 20 U 2439 1! None 

3 2035 U 2440 1 !-- 

3; 20 U 2441 1 BEGIN 

3; 203 U 244 1 BUILTIN 

; 2038 U 244 1 AP; 

: $23 U 2444 1 

b4 0 U 2645 1 MAP 

3 2041 U 244 1 AP : REF BLOCK C, BYTE); 

3 ok U 2447 1 

3 a : 108 : IF NOT $GET (RAB = TEX_RAB) 

3 2045 : aay ' RETURN (IF .TEX_RAB CRABSL_STS] EQL RMSS$_EOF THEN RMS$_EOF ELSE FALSE); 
; bee U £28 1 TEX_FILE_LINE_NO = .TEX_FILE -b INE "re + 1; 

3; 2048 U 245 1 SSTR_DEST_INIT (DESCRIPTOR = xGIN 

; 069 u 436 1 STRING = (.TEX_RAB CRABSW_R uty, : Efex _RAB CRABSL_RBFJ)); 
3; 2051 U $28 1 TPASL_STRIN wecnty = .TEX_LINE CSTRSH_LENGTH); 

3; 2052 U 245 1 TPASL “STR INGPTR] = .TEX-LINE CSTRSA “POINTER; 
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! End of module 


SECT SUMMARY 


NOVEC, WRT, R 


NOVEC.NOWRT, RD 
NOVEC.NOWRT, RD 
NOWRT 


R 
NOVEC,NOWRT, R 
NOVEC,NOWRT, R 


Library Statistics 


BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LIS$:NDXVMS/OBJ=OBJ$:NDXVMS MSRC$:NDXVMS/UPDATE=(ENHS$:NDXVMS) 
918 code ; 365 data bytes 


e@: 
un Time: 242. 
(the Time: Ole < 
Lines/CPU Min: 514 
acca Ale gay 45469 
Memor cy Ue sed: 273 paces 
Compilation Complete 


NDXVMS 

v04-000 OPEN_ERROR = Handle File Open Errors 
; 2053 U 2458 1 RETURN TRUE; 
; be U 2459 1 END; 

5 be? U 2460 1 

; 20 $ 461 1 SFI 

; 205 188 1 

: 2058 465 1 END 

3; 2059 464 0 ELUDOM 

: P 
; Name Bytes 

: $SOWNS 2 
>; _LIBSKEYOS 

; JLIBSSTATES 4 
3 LIBSKEY1$ 1 
: SPLITS 27 
; $cOoDdes 91 
: File 

: _$255$DUA28: SYSLIBISTARLET. “4325 1 

: ~$255$DUA28:CSYSLIBJTP C-h3e 

; 7$255$DUA28: Syst 1BIx PORT. L ih 
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